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Author's Introduction 



This book will give you and your computer power — the power to rep- 
licate reality in a quite uncanny way. I've included a wide range of pro- 
grams that allow you to experience this power in action — from a 
program that simulates microbes fighting for the right to survive in 
a closed environment, to one that puts you in the cockpit of a partic- 
ularly temperamental plane. 

There is also more to this book than the ready-to-run programs. 
You'll discover how easy it is to analyze real-life situations so that 
you can create your own computer simulations, for both entertain- 
ment and instruction. 

You now have the power. Use it 



Tim Hartnell 
London, 1986 



Getting the Programs 
Running on Your System 

I wrote the programs in this book on an IBM PC. Since you may- 
own or use different microcomputers, I've included the full BASIC 
program listings for the three most popular microcomputers: the Ap- 
ple He, Commodore 64, and the IBM PC. BASIC listings that will run 
on IBM PCs, XTs, and compatibles without modification are pre- 
sented throughout the chapters. Program listings specifically for the 
Apple lie series and the Commodore 64* are included in the appendix 
at the end of the book. 

I've written the programs in a subset of BASIC that will run on 
most microcomputers with only minimal changes. However, if you 
don't own an Apple lie or He, Commodore 64, or IBM PC, some of the 
BASIC statements used in the programs may have to be changed 
slightly to run on your system. I've included the following notes so 
that if you do have to adapt the programs you'll be able to get them 
running as quickly as possible. 

Screen Width 

I've assumed that you have access to the READ and DATA com- 
mands, and that your screen is about 40 characters wide. If your com- 
puter's screen is not quite that wide, you may have to adapt the 
program output by adjusting the PRINT statements. 

Random Numbers 

Some of the programs need random numbers to operate. When 
I want a random number between one and zero, I use the command 
A = RND(l). If I need random integers in the range between 1 and 10 
I use A = INT(RND(1) * 10) + 1. If your system can't use this state- 
ment, you'll have to substitute the form of the RND command that 
will run on your computer. Look up RND or "random numbers" in 
your system's BASIC manual. 

*C64 users see note on p. 171. 
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My computer's BASIC generates the same sequence of random 
numbers each time a program is run. In order to get a genuinely ran- 
dom set of numbers , I have to seed the random number generator. I've 
used the rather terrifying-looking statement RANDOMIZE VAL 
(RIGHT$(TIMES,2)) to do this. If your random number generator re- 
quires a seed (again, this will be explained in your BASIC manual), 
replace this statement with your system's equivalent (or leave it out 
altogether, if you don't have an alternative). 

If your computer doesn't use the BASIC statement DEFINT 
(often used in the line after RANDOMIZE as DEFINT A-Z) leave that 
line out completely as well. (See line 490 in the LIFE listing. ) 

Capital Letters 

Note that the programs expect input in upper-case letters. If 
your computer can use lower-case letters, and if while running the 
program nothing happens when you type in letter commands, check 
to make sure that you're typing in capital letters. 

Input Statements 

You may also have to change my use of INKEY$ for single char- 
acter input If your computer can't use INKEY$, change these state- 
ments (throughout) to the input statement that works on your 
system. Change A$ = INKEY$ to either INPUT A$ or GET A$ (again, 
see your BASIC manual). The program should run without further 
changes. Use CALL KEY when working in TI Extended BASIC. 

Note that some BASICs (such as Atari BASIC) do not let you in- 
clude a string within an INPUT statement (as in INPUT "string"; A$). 
Replace this with PRINT "string" followed by a separate INPUT state- 
ment. 

READing Arrays 

Some BASICS cannot READ array values directly, as in READ 
A(7) or READ A$(7). You'll have to replace these statements with lines 
that put data in the array indirectly. First read the data into a variable. 
The appropriate array element can then be set equal to the variable, 
as in READ X:A(7) = X or READ XS:AS(7) = X$. 

Printing the Results 

Many of the programs "reprint" the screen after each turn. I've 
used the CLS command to CLear the Screen. If your system doesn't 
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use CLS, you'll have to replace it with the appropriate command. Use 
PRINT "CLR" on Commodore and Atari computers, HOME on Apples, 
and CALL CLEAR when working with TI Extended BASIC. 

String-Handling 

String-handling can cause a few problems, so I've kept it to a 
minimum. If your computer does not support the standard LEFT$, 
MID$, and RIGHTS string-handling commands, consult your BASIC 
manual for the correct replacements. For example, the standard 
MID$(A$(2,3)} can be replaced with SEG$(A$,2,3) in TI Extended 
BASIC, with A$(2 TO 5) on Timex Sinclair computers, and with 
A$(2,5) in Atari BASIC. 

Delay Loops 

Many of the programs include a delay loop (usually in the form 
FOR 1=1 TO 500:NEXT I). You should adjust these dummy loops 
(which are usually held in subroutines at the end of programs) so that 
the program's displays of instructions and the progress of the sim- 
ulation are clear and easy to follow. See line 550 in the SIMULTA- 
NEOUS EQUATIONS listing for an example of how this works. 

Variables 

If your system won't accept variable names longer than two let- 
ters, enter just the first two letters (such as SC for SCORE). If it will 
accept a full variable name, but only recognize the first two letters, 
you will find that using the full variable name makes the program 
much easier to understand. 

Functions 

A number of the programs in this book use the BASIC statement 
DEF FN to define specific functions which are then "called" from dif- 
ferent parts of the program. Most BASICs include some form of DEF 
FN, the most notable exception being Atari BASIC. Functions can 
usually be replaced with subroutines, or, if the expression or calcu- 
lation is short enough, you can simply replace each use with the 
whole expression. 

High-Resolution Graphics 

The only program you may find difficult to adapt is POINT-DUTY 
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ROBOT, which requires high-resolution graphics (using a command 
like PSET or POINT). If your computer is capable of high-resolution 
graphics, you should consult your system's manual to find out the 
equivalent commands for your machine. If not, you'll find that the 
regular ROBOT LOGO listing is almost as much fun! 

Memory 

It is impossible to predict exactly how much memory the pro- 
grams will take up on your system, but the majority of the programs 
in this book will fit well within 16K machines. In fact, the longest pro- 
gram, FLIGHT SIMULATOR, is less than 8K long. 

If you have trouble getting a program into your system because 
of a shortage of memory, cut out as many REM statements as possi- 
ble (check to make sure that no GOSUB or GOTO calls refer to the 
lines you want to delete) and try to shorten the PRINT statements. 

General Instructions 

These changes should cover the adaptations you'll have to make 
to get the programs running on your computer. 

Please be sure to type programs in carefully. Remember that the 
instructions you give to a computer must be exactly correct—or the 
machine won't be able to run your program. If you have trouble get- 
ting a program to run, first proofread your typed-in version against 
the listing given in this book. 

The manual for the BASIC that came with your computer is an 
indispensible tool. Check the manual to see what's wrong with any 
program lines that won't work— or that result in error messages. 
Make sure to use the exact forms of the commands as given in the 
manual. 

Talking to someone who has a lot of programming experience — 
especially if it's with the computer you're using— can also be a tre- 
mendous help. 
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Computer simulations give you the power to try your hand vicari- 
ously at almost any activity you can imagine. Running a multi-mil- 
lion-dollar manufacturing concern, flying to the moon, driving a 
racing car, or running the country as President— all these experi- 
ences can be yours through simulation programs. 

In this book you'll find programs that allow you to take part in 
all these scenarios and more. You'll also be gently introduced to the 
art of creating computer simulations. After you've enjoyed the pro- 
grams in the book, you'll have made a good start on being able to write 
your own. Studying the program listings, observing what the different 
variables represent and the way they interact and how mathematical 
formulas are used to replicate "real life" situations, will show you a 
number of easy-to-apply techniques that you can use in your own 
simulations. 

Despite their obvious entertainment value, computer simula- 
tions are not just elaborate games. More sophisticated simulations 
are being used for training in many situations where reality is too ex- 
pensive, too dangerous, or too complex to allow human beings to 
learn by direct experience. During airplane pilot training many, many 
hours of airtime are clocked in elaborate flight simulators— con- 
trolled, of course, by computers— rather than up in the air. 

One of the real advantages of simulations is that they can be ma- 
nipulated more easily than the real situation. For example, a pilot 
training on a flight simulator could attempt to land during a hurri- 
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cane with very little fuel, or an operator at a nuclear power station 
could be faced with the possibility of a meltdown. Operators in con- 
ventional and nuclear power plants around the world are now train- 
ing on simulators, where they can hone their skills without facing 
real catastrophes. One example of the use of computer-controlled 
simulations in this area comes from Australia, where an electricity 
generating board has spent half a million dollars to buy a simulator 
to train its operators. This simulator, developed and marketed by an 
Australian company called Control Simulation Technology, allows a 
controller to simulate a number of emergency situations, so that staff 
can learn to cope with them. This "emergency" training would be im- 
possible without the use of a simulator. 

Another computer simulator, which might be seen as a little bit 
sinister, uses the reactions of a few test subjects to television and 
print advertising to simulate the reaction of a significant portion of 
the population. The simulator, developed by psychologist Marcus 
Tomlian, is claimed to be "the most sophisticated precision system 
for measuring consumer reactions to advertisements." The device, 
called Mind Monitor, is made up of a series of sensors that measure 
the brain and heart activity of a sample group of people. The simu- 
lator runs while an advertisement is shown to the test group, and 
gives a second-by-second readout from the sensors. The readings are 
then fed into the simulator, which analyzes the brain waves and car- 
diovascular readings and uses them to extrapolate the probable re- 
action of the general population. Mr. Tomlian claims that Mind 
Monitor can be used to find weak points in an advertising campaign 
so that the advertiser can "fine-tune" particular campaign elements. 
General Electric is believed to be at the forefront of developing com- 
puter simulations which help gauge viewers' reaction to advertising, 
while one of the world's biggest ad agencies, Young and Rubicam, is 
also investigating the field. 

Simulation Limitations 

A computer simulation, of course, must never be confused with 
the system it is simulating. All simulations are, to greater or lesser 
extents, simplifications of the system they represent. Low-level sim- 
ulations, like the programs in this book, and the simulations you are 
likely to create in the next few months, are often drastic simplifica- 
tions. Despite this, they can be surprisingly effective — trying to land 
a plane using our FLIGHT SIMULATION program can be almost as 
nerve-racking as the real thing. 

You'll find that there is as much art as science involved in cre- 
ating effective simulations. The science is in working out the for- 
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mulas that represent the interacting elements of the system you are 
trying to simulate. The art is in programming those formulas so that 
your interaction with the simulation is as "life like" and rewarding 
as possible. This means that the output must be realistic, and must 
be presented in a form that is readily understood. 

For most simulations, the speed with which the program re- 
sponds to user input is very important If the simulation is occurring 
in "real time" (that is, a second of time elapsed within the simulation 
is supposed to equal a second of time in real life), it is important that 
the simulation is written so that this one-to-one correspondence be- 
tween the times is as close as possible. 

Simulations can be divided into two groups: those where the 
data is acted on in distinct groups or packages, and those where the 
data values flow into each other repeatedly and continuously. 
Queuing systems, where a set of elements to be processed (like a 
group of customers waiting in line at a bank counter) wait in a queue 
until the system is ready for them, are the main kind of discontin- 
uous situations that are turned into simulations. In the second type 
of simulation, where data values flow into each other, values (such as 
the internal temperature of a nuclear reactor) change constantly over 
time. 

It is important to try and determine, before you start program- 
ming your own simulation, which type of data or process predomi- 
nates within the system you are going to program. 

Any situation where elements are added to a queue at rate A and 
removed at rate B is a candidate for a discrete simulation. There are 
many, many situations like this in real life. Discrete queues exist in 
such different situations as collecting eggs in an old-fashioned farm- 
yard (where a queue can simulate the difference in time between eggs 
being laid and gathered), highway accident victims waiting for am- 
bulances, and airplanes waiting for clearance to take off. 

Some systems can be simulated by either a discontinuous or a 
continuous model. Our SPACE LANDING SIMULATION lets you try to 
land a spacecraft on the moon. This program waits for an input before 
continuing (you type in a number between zero and nine, represent- 
ing "thrust"). If the program did not wait for your key press, but kept 
going through its operational cycle over and over again, checking the 
keyboard during each cycle, and making changes only if it detected 
a valid key press, the simulation would clearly be a continuous one. 
There would be no instant when the velocity and position of the craft 
were not changing. Add a real-time control facility to our FLIGHT SIM- 
ULATION program, and you'd have another non-discrete simulation. 

In the next chapter of this book, we'll look at the basic elements 
of a simulation, and show how to break down a problem so that you 
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can create a simulation of it The later chapters explore many differ- 
ent types of simulations. You'll see a number of simulation tech- 
niques in action, and can study the programs to see how the results 
were achieved. The lessons you learn from these chapters can then 
be applied to help you create your own simulations. 

Chapter three looks at loops and feedback, the fundamental ele- 
ments of all simulations, and shows these in action with the SPACE 
LANDING SIMULATION program. From there we move to Monte Carlo 
simulations, where the effects of random inputs on a system are dis- 
cussed. Chapter five presents the predator/prey simulation, where si- 
multaneous equations model the interaction of two kinds of cells 
living within a culture medium, and competing for the right to sur- 
vive. 

The next chapter presents a version of John Conway's classic 
computer simulation LIFE, where birth and death occur in a less 
bloodthirsty way than in our predator/prey simulation. The first ver- 
sion of this program allows you to encode game-starting patterns as 
DATA statements, so that different evolutionary outcomes can be 
studied. Then you'll shown how to make the simple changes that al- 
low your computer to generate the starting colony at random. 

Chapters seven, eight, and nine, which look at robot simula- 
tions, are considerably more ambitious than the earlier ones. In 
these chapters, we will actually examine two simulations at once. 
First, we simulate the action of a computer language interpreter, 
which "understands" commands entered in RCL, a new computer 
language (Robot Control Language). Second, the programs use RCL 
commands to move a little "robot," which leaves Logo-like designs 
as it trundles around your computer's screen. The programs given 
here form a solid basis for developing your own complete "turtle 
graphics" program. 

Artificial intelligence is one of the "hot" areas of computer sci- 
ence at the moment, and this book would not be complete without a 
program or two that showed how a simulation program can appar- 
ently endow a computer with intelligence. Chapter ten lets you at- 
tempt the fairly fruitless task of trying to beat your computer at the 
game CONNECT FOUR, and explains how the program assesses its 
"best" move. The move-selection technique can be adapted to many 
other board games. The following chapter introduces a program that 
replicates an 1890 Spanish machine that plays a particular chess 
endgame. The Quevedo Chess Machine was probably the first genu- 
ine attempt to produce a chess-playing machine, so it is appropriate 
that it is represented here. 

From chess we move into the political arena, and show how the 
economy of the United States can be (admittedly very crudely) mod- 
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eled within a computer simulation. You take the role of the President, 
and your job is to try to control the economy. You may well have a 
deeper sympathy for the real occupant of the Oval Office after you find 
your best efforts blowing up in your face. 

Money manipulation lies at the heart of chapter thirteen's sim- 
ulation of a small stock market in action, as you invest in the fluc- 
tuating fortunes of five companies, trying to reach a financial goal 
you have set for yourself. If you find you have considerable skill in 
this area, you can see if it stands you in good stead in manufacturing. 
DETROIT CITY, presented in chapters fifteen and sixteen, confronts 
you with an even more difficult challenge. Your task is to try to bring 
an ailing automobile manufacturing company back to a more profit- 
able life. Fail, and you're out of a job. Succeed, and you get a seat on 
the board. 

We move from the world of business simulations to programs 
that simulate leisure activities. GRIDIRON, presented in chapters 
seventeen and eighteen, puts you up against the computer-con- 
trolled Silicon Cowboys, or you can use the program to mediate a 
clash between two human beings. The next program gives you the 
chance to play a three-set game of tennis against your computer. 
Again, if you prefer, you can use the simulation simply to keep track 
of the action, and play against another flesh-and-blood opponent 

In chapters twenty-one and twenty-two, you are at the wheel of 
a racing car, as you try out your driving skill on your choice of Grand 
Prix tracks in Britain, Germany, Italy, or Monaco. The tracks used 
within the program are based on the real-life tracks, but I doubt 
whether the skills you pick up here could very usefully (or safely) be 
transferred to genuine Grand Prix driving on those circuits. 

Finally, in chapters twenty-three and twenty-four, we have our 
simulation de resistance, a complete flight simulator. The program 
simulates an airplane that is fiendishly difficult, but not impossible, 
to fly. You'll find that keeping track of four or five constantly chang- 
ing factors at once will take all your concentration. But the satisfac- 
tion you'll feel on your first successful landing will make it all worth 
while. 

As you can see, we have some fascinating territory ahead of us. 
Let's go. 
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The Components 
of a Simulation 



In the simplest terms, a simulation is a computer model of cause and 
effect Event A is linked to event B by equation X. Modify B, and C is 
affected, by linking factor Y. And so on. Isolate the links (X and Y, in 
the preceding examples), and you have the raw ingredients of a sim- 
ulation. 

If you turn on a light switch, electricity will flow through the cir- 
cuit, and the light will come on. Cause and effect are easy to see in 
this situation: 

CAUSE > EFFECT > EFFECT 

SWITCH ON CURRENT FLOWS LIGHT GLOWS 

It would be, of course, a trivial exercise to write a program to simulate 
the result of turning on a light switch. However, this should not blind 
us to the fact that, in essence, all simulations — no matter how com- 
plicated — that you write will show a clear linking between causes and 
effects. 

More Complex Links 

The links, of course, will not always be this simple and straight- 
forward. 

Some effects may only come into play when variables reach trig- 



6 



ger values. For example, the car engine in our GRAND PRIX simula- 
tion blows up if the engine temperature exceeds 200 degrees. Your 
own simulations may have a link that looks like this: 



leads, if A is present, to EVENT Y 
leads, if B is present, to EVENT Z 

Analyze the links and express them in a diagram like the above, per- 
haps substituting mathematical formulas for our "if A, then B" links, 
and you're well on the way to writing your own simulation program. 

The first simulation program in this book (in the next chapter) 
puts you in the position of a pilot trying to land your spacecraft on 
the moon. The causal links in this program are reasonably straight- 
forward, but still manage to produce very interesting and somewhat 
unpredictable outcomes. 

Here are the links. THRUST is the input from the user, each time 
through the loop. 



> FUEL = FUEL - THRUST 

IF FUEL = > > > 

VARIABLE FLAG ( VF ) = THRUST - 2 
HEIGHT = HEIGHT + VELOCITY + VF/l» 
VELOCITY = VELOCITY + VF 

V 

IF HEIGHT < 10 > > + : 

< <--G0T0 NEW THRUST INPUT : : 

V V 

IF VELOCITY > -9 AND VELOCITY < 5 THEN LAND SUCCESSFULLY 

' ELSE + 

CRASH < 



Although this may look a little complex at first sight, it is ac- 
tually fairly simple. You can see that the causal loop diagram looks 
pretty much like a flow chart, and actually contains some lines that 
apparently could be programmed directly. When you look at the pro- 
gram (especially lines 170 to 240) you'll see that some of the lines 
above do appear almost unchanged in the program. 

Feedback 

Causal loops contain elements, or processes, that interact. They 
also contain feedback mechanisms. The results of one series of com- 
putations (in the moonlander simulation, for example, the results are 
the height, velocity, and fuel left) feed back to affect the next input 
(THRUST in this case). In this case the feedback is presented to the 
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user on the screen. The user, or player, then makes choices about his 
next input In continuous simulations, the feedback information can 
be used by the program to automatically influence the state of the 
simulation. 

In real life, feedback influences many situations, for example, in 
the operation of a thermostat on a room heater. If the room gets 
colder, the thermostat turns the heater up. When the room becomes 
warmer, the thermostat turns the heater down. In due course, the 
room cools, the temperature drops, and the cycle begins again. 

Feedback does not always lead to a fluctuating output. For ex- 
ample, if I am angry with you, I may raise my voice. You shout back. 
I am further angered by you raising your voice and I raise my voice 
some more. You, in turn, are made more angry by my increased vol- 
ume, and shout even more loudly at me. A self-reinforcing loop is set 
up. If the heater's thermostat was set so that the hotter the room be- 
came, the more heat was produced, a similar self-reinforcing feed- 
back loop would be seen (and felt!). 

Equilibrium Points 

Many feedback loops have an equilibrium point. (In our ther- 
mostat example, the equilibrium point is the final steady tempera- 
ture of the room.) A good simulation may, in effect, challenge the 
program user to discover that equilibrium point. There may well be, 
for example, a thrust input built into our moonlander program that 
allows the craft to sink gently down into the lunar dust. 

Negative and Positive Loops 

A negative feedback loop tends to push the system toward an 
equilibrium point (As the room gets hotter, the thermostat turns the 
heater down. ) A positive feedback loop tends to lead to dramatically 
accelerating or decelerating rates, pushing the system away from an 
equilibrium point (As the room gets hotter, the heater is turned up 
more. ) 

It is fairly easy to understand how a single feedback loop can 
form the heart of a simple simulation. However, most situations in 
real life, when analyzed, turn out to be made up of more than one feed- 
back loop. 

For example, in the predator prey simulation in chapter five, we 
have two life forms whose survival is inextricably bound together. If 
one species dies out, the other will also die. If there are too few pred- 
ators, the number of prey will increase, leading to more food, so more 
predators are born. These in turn will eat more prey. The situation is 
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dynamic, constantly changing as the simulation produces and uses 
its own feedback. 

Here is how chapter five's program looks in a causal diagram: 



■reproduce >- 

in relation 
to numbers 



if enough 
+--CELL Y exist->-+ 
: to support X, Y : 
: is eaten : 
V 



No. of 

CELL Y 



No. of 
CELL X 



— reproduce--* 
in relation 
to numbers 



A situation like this can either stabilize, or can move so that either X 
or Y becomes dominant, with the other type of cell reduced to an in- 
effectual level. 

Such simulations are fascinating to run, and their outcomes can 
be difficult to predict, even when you know the linking formulas well. 
In a simulation like this, where there are two negative feedback loops 
in operation, X and Y fluctuate about an equilibrium point as they act 
on each other. 

Your own simulation programs will be easier to write if you con- 
sider the behavior of the system you want to model in terms of pos- 
itive or negative feedback loops. 

Some relationships are easier to see than others. For example, 
this diagram shows the relationship between the work involved in 
pumping water from a well, the thirst produced by that work, and the 
amount of water produced: 



amount 
drunk 



quantity 
of water 



amount 
pumped 



This is a fairly clear situation, one that is probably simpler than any 
real-life situation you'll try to model with a simulation system. If a 
double loop is needed to show the relationship of something simple 
like this, it is highly likely that the systems you'll want to simulate 
will need two, or more, interacting loops. 
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For example, the ecological system of oxygen use and replenish- 
ment on Earth can be shown with the following diagram: 



More C02, so 
biosphere 4 
heats up 



Greenhouse effect 
inhibits plankton 
growth 



Fertilizer runoff 
^encourages algae 
growth in rivers 



Fossil fuels 
burnt, oonsume^- 




— * I 

Population 
increases, demand—, 
rises 

Burning forest 
areas reduce 02 
output, increase 
C02 

Waste industrial , 



Industrial waste 
in rivers 
consumes 02, kills 
off marine life 



gases pollute atmosphere 

Thermal pollution 
raises river temperatures 
reducing 02 capacity of 
water, and suffocating 
marine life 
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Time Against Action 

You may well find that producing a graph of the action of a sys- 
tem makes it easier to understand both the dynamics of the system 
and the causal loops that are acting within it. 

If we plot against time the populations of cell type X and cell type 
Y from the runs of chapter five's predator/prey simulation, we get 
graphs like these: 




01 2345678910 

_ -Time-- 
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These graphs show dramatically how the two life forms are related. 
The crossover points of the lines also suggest where the equilibrium 
points of the system may be. 

So the causal loop diagrams help us find the underlying rela- 
tionships within the system we hope to simulate, and a graph of the 
outputs of the simulation plotted against time allows us to see cause 
and effect in action within the system. This graphed data can help us 
to see the effectiveness or otherwise of our simulation, and helps our 
understanding of what is actually going on as the simulation runs. 

You should now have enough background information to un- 
derstand the processes involved in the creation and running of the 
simulation programs that make up the rest of the book. Once you get 
the programs up and running, you may well want to draw causal dia- 
grams to show the links between elements in these programs. As 
well, the output from some — but not all — of the simulations can be 
graphed, to give further insight into the working of the system being 
modeled. 
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|B BBi b n n 

rGGuDcICK 

in Action 



In this chapter, we'll look at our first simulation program, one that 
has been around in one form or another since the earliest days of 
commercial computers. In those days, a lot of expensive corporate 
and academic computer time was consumed by would-be space pilots 
trying to land creaky old space ships on the moon. 

Unlike the predator/prey simulations in chapter five, which use 
simultaneous equations, simulations like this one use a series of for- 
mulas held within a loop. After each run through the loop, the system 
operator receives feedback on the status of particular variables that 
are being modified (in this case, fuel, height, and velocity). On the ba- 
sis of this feedback, the operator decides what input to enter, and 
then waits for the computer to report back on the result of processing 
that new input 

Here is how the series of mathematical operations is repre- 
sented within the program loop. A$ is the user input, signifying 
thrust 



1 60 THRUST = VAL [ A • ) + . 1 

170 FU EL=FU EL-THRUST 

180 FLAG=THRUST-2 

190 THRUST=0 

200 HEIGHT=HEIGHT+VEL0CITY+ FLAG/4 

210 VEL0CITY=VEL0CITY+FLAG 
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Typically, the main loop has certain exit conditions (such as, in 
this simulation, when you crash, run out of fuel, or manage to land 
safely) that abort the cycle and end the run with a status report to the 
operator. Lines 220 and 240 in the next section of the program check 
to see if the cycle should leave the loop, while 230 sends it back for 
another run through: 

220 IF HEIGHT<=10 THEN 240 
230 I F HEIGHT>1 THEN 1 20 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
9 

Of course, you don't need to know this, or keep it in mind, when 
running a program like the SPACE LANDING SIMULATION in this 
chapter. As far as you're concerned, you're trying to land your ship, 
and the mechanics of handling your input are none of your concern. 

In this program user input is limited to choosing thrust You sig- 
nify a high thrust by pressing the "9" key; a low thrust with the "1" 
key; and zero thrust with the "0" key. Intermediate values are entered 
by touching other number keys. There is no need to press the RE- 
TURN or ENTER key at this point, as INKEY$ (or GET$) are used to 
read the keyboard. 

Let's see how an unskilled pilot makes out when trying to land 
a spacecraft using this simulation: 



FUEL 



VELOCITY 
-11 .42 
-9.520001 



HEIGHT 
497.03 
5 7.99 
5 17.04 
5 2 4 .2 
529.45 
5 3 2 .8 
5 3 4.26 
5 3 3.81 
531 .47 
527.22 
5 2 1 .07 



2 8.33 
208.2 3 
208.13 
208.0 3 
2 7.93 
2 7.83 
207.73 
2 7.63 
207.53 
207.43 
207.33 



-7.62 
-5.72 
-3.82 
-1.92 
- . 02 
1.88 
3.78 
5.68 
7.58 



188.23 
17 9.13 
17 0.03 
160.93 

151 .83 



10.48 

3.38 
-3.72 
-10.82 
-17.92 



3 41 .57 
3 3 2.87 

3 3 1 .28 
3 3 6.78 

3 49 . 3 9 
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1 


5 1 


. 7 3 


-18.02 


3 6 6.84 


1 


51 


. 6 3 


-14.12 


3 8 2.39 


1 


5 1 


. 53 


-12.22 


3 9 6.05 


1 


5 1 


.43 


-10.32 


407 .8 


1 


51 


. 3 3 


-8.42 


417.66 


1 


5 1 


. 2 3 


-6.52 


425.61 


1 


50 


. 3 


16.28 


37 2 . 3 6 


1 


4 9 


. 9 3 


1 B . 1 8 


3 5 6.11 


1 


4 9 


. 8 3 


2 0.08 


3 3 7.47 


1 


4 9 


. 7 3 


2 1.98 


3 16.92 


1 


4 9 


. 6 3 


2 3 . 8 B 


2 9 4 . 4 B 


1 


4 9 


. 5 3 


2 5.78 


2 7 0.13 


1 


4 9 


. 4 3 


2 7.68 


2 4 3.88 


1 


4 9 


. 3 3 


2 9.58 


2 15.74 


1 


49 


. 2 3 


31.48 


18 5.69 


A 
1 


A Q 


.Id 


O O O Q 
O O „ O D 


icq 7 c 


1 


4 9 


. 3 


3 5.28 


119.9 


1 


48 


. 93 


3 7.18 


8 4.15 


1 


4 8 


. 8 3 


3 9.08 


46.51 



YOU HAVE CRASHED INTO THE SURFACE... 



FINAL INSTRUMENT READINGS WERE: 
FUEL VELOCITY HEIGHT 

148.73 40.98 



NEW CRATER ON MOON 2.25 METERS DEEP! 
YOUR SKILL RATING IS -438 

The picture is very different when a skilled space jockey takes 
the controls: 



FU 


EL 




VELOCITY 


HEIGHT 


21 


. 


7 1 


4.02 


496.05 


21 


. 


6 1 


5.92 


4 9 1 .57 


21 


. 


51 


7 . B 2 


485.18 


21 


. 


41 


9.72 


47 6 . B 9 


21 


. 


31 


11.62 


46 6 .7 


21 


. 


2 1 


13.52 


454.61 


21 


. 


1 1 


15.42 


440.62 


21 


. 


1 


17.32 


424 . 73 
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p n Q q 1 


1 a . d d 


4 6 . 9 4 


p n n o 4 

C U U e □ 1 


12.12 


3 8 9 .5 


13 1 ■ / 1 


r no 

O . U d 


3 7 9,16 


1 9 P R 1 


o no 


3 7 5.92 


1 R P 5 4. 


— .18 


3 7 7.53 




1.72 


3 7 7.24 


182.31 


3.62 


375.05 


18 2.21 


5.52 


3 7 Q R 


182.11 


7.42 


3 6 4.97 


18 2.01 


9.32 


3 5 7.08 


1 DU . 91 


2 0.22 


12 6.75 


14 7.81 


19.12 


10 6.81 


A A A "7 4 

1 44, /i 


18.02 


8 7.97 


1 an r 1 

I ** U a D ■ 


1 R Q O 
1 O ■ M d 


/0.4b 


4 O » C 4 


11.82 


5 5.59 


i OR A 4 


O . / d 


4 5.3 




c en 

0.62 


3 9.61 


1 2 2 B 2 1 


5.52 


3 4.02 


118.11 


3.42 


2 9.03 


4 4 c n 4 
116.01 


3.32 


2 5.64 


113*91 


3.22 


2 2.35 


■14 4 Q 4 


J . 1 2 


19.16 


4 n B 7 4 


2.02 


16.32 


107.61 


2.92 


14.08 


10 6.51 


3.82 


10.94 


YOU HAVE 


LAND ED SAFELY ! 




YOUR SKILL RATING IS 9067 


FINAL INSTRUMENT READINGS WERE; 


FUEL 


VELOCITY 


HEIGHT 


10 5.41 


4.72 






Here's the listing so you can do your bit for NASA: 

1 REM SPACE LANDING SIMULATION I 

20 RANDOMIZE V A L [ R I G H T $ ( T I M E $ , 2 ] ) 

30 REM ***************************** 

40 REM SET STARTING VALUES 

50 FUEL=200+RND(1]*40 

60 VEL0CITY=RND (1 ) *20-6 



70 HEIGHT=500-RND(1 ] *1 
80 CLS 

90 PRINT " FUEL"»TAB(12) |" VELOCITY" ;TAB 
I 2 4 ] } " HEIGHT" 

100 REM ***************************** 
110 REM MAJOR CYCLE 
120 GOSUB 430 

130 IF FUEL< = THEN FUEL = :THRUST = sGOTO 
1 70 

140 A$=INKEY$ 

150 IF A$<"0" OR A$>"9" THEN 140 
1 60 THR UST = VAL ( A $ ) + . 1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
1 90 THRUST=0 

200 HEIGHT=HEIGHT+VELOCITY+ FLAG/4 
210 VELOCITY=VELOCITY+FLAG 
220 IF HEIGHT<=10 THEN 240 
230 IF HEIGHT>1 THEN 1 20 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
90 

250 GOSUB 410 

260 PRINT "YOU HAVE CRASHED INTO THE SUR 
FACE..." 

270 IF HEIGHT>0 THEN H E I G H T= - H E I G H T 
280 GOTO 320 

290 PRINT "YOU HAVE LANDED SAFELY ! " 

300 PRINT "YOUR SKILL RATING IS" INTl-100 

0*FUEL/ (VELOCITY-HEIGHT) J 

310 HEIGHT=0 

320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E: " 

340 PRINT " F U E L " ; T A B [ 1 2 ] ; " VELOCITY" ;TA 
B ( 2 4 ) ? " HEIGHT" 
350 GOSUB 430 
360 GOSUB 410 

370 IF HEIGHT>=0 THEN END 

380 IF HEIGHT<0 THEN PRINT "NEW CRATER 
N M00N"INT[ABS[100*[HEIGHT+.2)/3))/100"M 
ETERS DEEP!" 

390 PRINT "YOUR SKILL RATING IS " I N T ( 1 
*FUEL/( VELOCITY-HEIGHT)) 
400 END 



410 PRINT " 

I! 

420 RETURN 

430 PRINT I NT t 1 00*FUEL}/1 00 ; 

440 PRINT TAB [ 1 2 ] ;-I NT ( 1 00 *VEL0CITY )/1 00 

s 

450 IF HEIGHT > = THEN PRINT TAB [ 24 ) ; I NT [ 

1 00*HEIGHT)/1 00 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

Once you can land consistently with the program in its current 
form, change line 50 to the following, to create a whole new challenge: 

50 F U E L = 1 00 + RND ( 1 ) * 40 
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Monte Carlo simulations are those simulations that depend on 
chance or random factors. The random elements in such programs 
may be weighted to simulate probabilities within specified limits 
(such as the results of throwing a pair of dice) or may be more or less 
genuinely random. In this chapter, you'll see a fairly "open" Monte 
Carlo simulation in action. 

Our program is designed to simulate the effect of Brownian 
movement on a very small particle suspended in a fluid. The random 
motion of such a particle, which is observed when the particle is less 
than about one-thousandth of a millimeter in diameter, is caused by 
the impact of the atoms or molecules of the fluid on the particle. 
Brownian movement can be seen as smoke disperses in still air, or 
as ink is diffused in a tumbler of water. It's named after Robert Brown, 
a Scottish botanist who in 1827 first noted, but was unable to explain, 
the movement seen when looking through a microscope at a solution 
of pollen grains in water. 

The simulation is shown on a 10 by 10 grid, with a single pollen 
grain, depicted by "0". When you run the program, you enter the po- 
sition where you want the grain to start, and also set up a "goal" po- 
sition. The simulation ends when the pollen grain reaches the goal 
position. 
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Here's how it begins: 

ENTER FIRST START CO-ORDINATE [LESS 
THAN 10) 
? 3 

ENTER SECOND START CO-ORDINATE [LESS 
THAN 10] 
? 4 

ENTER FIRST END CO-ORDINATE (LESS 
THAN 10) 
? 6 

ENTER SECOND END CO-ORDINATE [LESS 
THAN 10) 
? 7 

MOVE 1 




D a • a o X 



And here are some screen printouts as the simulated Brownian 
movement makes the grain drift about: 



MOVE 5 
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1 



MOVE 9 



.... . X . 



MOVE 11 




X 



Finally, on the fourteenth move, the pollen grain reaches the tar- 
get position, and the demonstration ends: 



MOVE 14 
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DEMONSTRATION OVER 



Here's the listing so that you can explore this Monte Carlo dem- 
onstration: 



10 REM MONTE CARLO DEMONSTRATION 

20 GOSUB 370 : R EM INITIALIZE 

30 REM **************************** 

40 REM MAJOR CYCLE 

50 GOSUB 1 00 s R EM PRINT 

60 IF P=EP AND Q=EQ THEN PRINTsPRINT "DE 

M ONSTRATI ON OVER" : END 

70 GOSUB 230 : REM GENERATE MOVE 

80 GOTO 50 

90 REM **************************** 
100 REM PRI NTOUT 
110 A $ ( P , Q ] = » o " 
120 M=M+1 

1 30 CLS s PRI NT : PR I NT 
1 40 PRINT " M V E " M 

1 50 FOR X = 1 T 10 
160 FOR Y=1 TO 10 

170 PRINT A $ ( X , Y ] ; « « • 
180 NEXT Y 
190 PRINT 

2 NEXT X 
210 RETURN 

220 REM **************************** 
230 REM GENERATE MOVE 
240 A $ [ P , Q ] = « . « 
250 G=0 

260 T = INT(RND(1 ]*4]+1 

270 ON T GOSUB 310,3 20,330,3 40 

280 IF G=0 THEN 260 

290 I F G=1 AND RND [1 ) >. 5 THEN 260 
300 RETURN 

310 IF P >1 THEN P = P-1 : G = G + 1 : RETURN 
320 IF P<1 THEN P=P+1 : G=G+1 : RETURN 
330 I F Q>1 THEN Q=Q-1 : G = G + 1 t RETURN 
340 I F Q<1 THEN Q = Q. + 1 : G = G + 1 I RETURN 
350 RETURN 

360 REM **************************** 
370 REM INITIALIZE 
380 CLS 

390 RANDOMIZE V A L ( R I G H T $ [ T I M E $ , 2 ] ) 
4D0 DIM A $ ( 1 , 1 ] 
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410 FOR X=1 TO 10 

420 FOR Y=1 TO 10 

430 A $ ( X , Y ] = " . " 

440 NEXT Y 

450 NEXT X 

460 PRINTsPRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 

[LESS THAN 10)" 

480 INPUT P 

490 IF P <1 OR P>10 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10]" 

510 INPUT 

520 IF Q<1 OR Q>1 THEN 510 

530 PRINTsPRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE [ 
LESS THAN 10)" 

550 INPUT EP 

560 IF EP = P OR EP <1 OR EP>10 THEN 550 

570 PRINT "ENTER SECOND END CO-ORDINATE 
[ LESS THAN 10]" 

580 INPUT EQ 

590 IF EQ=Q OR E0<1 OR EQ>1 THEN 580 

600 A $ [ P , Q] =" 0" 

610 A«[EP,EQ]="X» 

6 20 RETURN 




SirnuIfcanpoiiCfe 

,■2. ? cu H 9 H H w <v9 B S3 Taff ^yf QmS cfaw 

Equations 



We can also create simulations that use simultaneous equations to 
show the effects of two interacting factors on each other. These equa- 
tions are often used in predator prey simulations like the one we'll 
examine in this chapter. 

In this example, we have two forms of cell living in a culture. 
Both cells feed on nutrients in the culture medium, and attempt to 
reproduce as the simulation runs. Cell X also needs to consume cell 
Y in order to survive. If there are too many of cell X, it will kill off all 
of cell Y, and will then die itself. If there are none of cell X, cell Y will 
reproduce wildly, and choke the medium. 

You are allowed to set the starting numbers of cells X and Y in 
each run of the simulation. You have to try and create a population 
balance that will allow the cell colony to survive for as long as pos- 
sible. Although the degree of aggressiveness of cell X toward Y 
changes from run to run of the program (so that you can't just learn 
which numbers will always work), it does not change within a single 
run, so you can try various combinations to see how they behave. 
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The program starts by reporting the decay factor, which is the 
degree of aggressiveness cell X displays toward Y. It then asks you to 
enter the starting populations: 

DECAY FACTOR IS ,1408966 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 
? 37 

WE HAVE 37 X CELLS 

ENTER NUMBER OF CELL Y TO 
START [LESS THAN 40 ] 
? 25 

Once you've made your choice, the program works out the life 
history of your cell cultures, keeping you up to date: 



TIME ELAPSED: 


1 


37 CELL X 




2 5 CELL Y 




TIME ELAPSED s 


2 


35 CELL X 




17 CELL Y 




TIME ELAPSED: 


3 


46 CELL X 




9 CELL Y 




TIME ELAPSED s 


4 


7 7 CELL X 




2 CELL Y 




TIME ELAPSED : 


5 


3 7 CELL X 




1 CELL Y 





YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERI ODS . 
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THE BEST SURVIVAL TIME SO FAR IS 5 



DO YOU WANT A NEW RUN [ Y OR N ) ? 



The program also keeps track of the "longest life so far. " It gives 
you an opportunity, in subsequent runs, to see the effect of different 
starting populations: 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40 ] 
? 25 

WE HAVE 25 X CELLS 

ENTER NUMBER OF CELL Y TO 
START ( LESS THAN 40 ] 
? 3 7 



TIME ELAPSED s 4 
2 CELL X 
35 CELL Y 



TIME ELAPSED : 5 
1 CELL X 
3 6 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 

THE BEST SURVIVAL TIME SO FAR IS 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40 ] 
? 3 8 

WE HAVE 38 X CELLS 

ENTER NUMBER OF CELL Y TO 
START ( LESS THAN 40 ] 
? 3 8 
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TIME ELAPSED : 2 
13 CELL X 
3 4 CELL Y 



TIME ELAPSED : 3 
6 CELL X 
33 CELL Y 



TIME ELAPSED s 4 
3 CELL X 
33 CELL Y 



TIME ELAPSED ; 5 
1 CELL X 
34 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 



THE BEST SURVIVAL TIME SO FAR IS 5 



DO YOU WANT A NEW RUN (Y OR N ) ? 

ENTER NUMBER OF CELL X TO 
START ( LESS THAN 40 ) 
? 22 



WE HAVE 22 X CELLS 

ENTER NUMBER OF CELL Y TO 
START [LESS THAN 40) 
? 3 



TIME ELAPSED s 3 
13 CELL X 
23 CELL Y 



TIME ELAPSED: 4 
14 CELL X 
21 CELL Y 



TIME ELAPSED: 


5 


15 CELL X 




18 CELL Y 




TIME ELAPSED: 


6 


19 CELL X 




15 CELL Y 




TIME ELAPSED : 


7 


27 CELL X 




12 CELL Y 




TIME ELAPSED ; 


8 


41 CELL X 




7 CELL Y 




TIME ELAPSED: 


g 


74 CELL X 




2 CELL Y 





TIME ELAPSED: 10 
32 CELL X 
1 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 10 TIME PERIODS, 



THE BEST SURVIVAL TIME SO FAR IS 10 



DO YOU WANT A NEW RUN [ Y OR N ] ? 
OK 



The most crucial parts of the program are the equations that cal- 
culate the cell populations. These are lines 330 and 340: 

330 CP = CP+ ( ( 8 * CP-CP* EP/3 ) *FD J 
340 EP=EP+ ( [ 4*EP-EP*CP) • .01 ] 

Modify parts of these program statements and watch the effect this 
has on the progress of your simulation. You'll probably be surprised 
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to see the far-reaching effects of even the most apparently minor 
change. Here's the listing: 



10 REM SIMULTANEOUS EQUATIONS 
SO CLS 

30 RANDOMIZE V A L [ R I G H T $ ( T I M E $ , 2 ] ) 
40 HS=0 

50 F D = R N D ( ) 

60 PRINTsPRINT "DECAY FACTOR IS" FD 
70 G0SUB 550 
80 CLS 

90 PRINTsPRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 

START [LESS THAN 40)" 
110 INPUT CPsIF CP <1 OR CP >3 9 THEN 110 
120 PRINTsPRINT 

130 PRINT "WE HAVE " CP " X CELLS" 
140 PRINTsPRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 

START [LESS THAN 40)" 
160 INPUT EPsIF EP<1 OR EP>39 THEN 160 
170 CLS : PRI NT s PRI NT "PLEASE STAND BY.., 

1 BO GOSUB 550 i CLS 
190 D A = 1 

200 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT " " 

220 PRINT "TIME ELAPSED t "DA 

230 PRINT I NT [ CP ) "CELL X" 

2 40 PRINT INT[EP)"CELL Y" 

250 REM *************************** 

260 REM MAJOR CYCLE 

270 GOSUB 550 

2B0 D A = A + 1 

290 PRINT " " 

300 PRINT "TIME ELAPSED s "DA 

31 IF CP>EP/FD THEN CP=EP/FD 

320 REM EQUATIONS FOLLOW? MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 

330 CP=CP+( (8*CP-CP*EP/3) *FD) 

340 EP=EP+([4*EP-EP*CP)*.01) 

350 PRINT INT[CP)"CELL X" 

360 PRINT INT(EP)" CELL Y" 

370 IF EP<2 OR CP<2 THEN 410 
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380 GOSUB 550 

390 GOTO 280 

400 REM *************************** 

410 IF D A > H S THEN HS = DA 

420 PRI NT : PRINT 

430 PRINT "YOUR CELL CLASH SIMULATION 
R V I V E D " 

440 PRINT 

450 PRINT 



SU 



"FOR "DA "TIME PERIODS." 



460 PRINT 
I S " H S 

GOSUB 
PRINT 



470 
48 



"THE BEST SURVIVAL TIME SO FAR 



550 



490 
] ? " 
500 
51 
5 20 
530 
540 
5 5 
560 



PRINT "DO YOU WANT A NEW RUN [Y OR 



500 



A$=INKEY$ 

IF A $ < > " Y " AND A $ < > " N " THEN 
IF A$="Y" THEN CLS : GOTO 60 

PRINT "OK":PRINT:PRINT: END 

REM *************************** 

FOR J = 1 TO 20 : NEXT J 
RETURN 




The Meaning 
of Life 



In the previous chapter we looked at a program that simulated the 
action of two competing life forms occupying a single space. In that 
simulation, the growth and decay of the cells were governed by si- 
multaneous equations. In this chapter, we'll look at two versions of 
a simulation classic, John Conway's LIFE. This simulation models 
the growth and development of a colony of cells living on a grid. 

Developed by Conway when he was at Gonville and Caius Col- 
lege, in Cambridge, England, LIFE produces some amazing effects, 
whose richness is not even hinted at by the rules under which the 
cells live, reproduce, and die. To show this, we'll look at a colony of 
cells that starts off forming a square. This particular colony dies off 
after three "generations": 



GENERATI ON 1 



xxxxx 

X X 
X X 
X X 
XXXXX 



XXXXX 
X X 
X X 
X X 
XXXXX 
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GENERATI ON 2 



XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 



XXX 
XXXXX 
XXXXX 
XXX XXX 
XXXXX 
XXXXX 
XXX 



GENERATI ON 3 



X 

X X 



X 

X X 



x X X X 

X XX X 

X X X X 

XX XX 



Another colony, which begins life in an "X" shape, evolves as 
follows (the program prints a "mirror image" colony to the right of 
the original colony in all these sample runs). 



GENERATI ON 1 



X X 
X X 

X 
X X 

X X 



X X 
X X 
X 

X X 
X X 
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GENERATION 2 



XXX xxx 
XX xx 
xxx xxx 



GENERATION 3 



X * 

XX * * 

xx xx 

XX xx 



GENERATION 4 



X 
XXX 
XX XX 
XXX 

X 



X 

xxx 

XX XX 

xxx 

X 



GENERATI ON 5 



XXX 
X X 
X X 
X x 

xxx 



xxx 

X X 
X x 
X X 
XXX 



GENERATI ON 



6 



X 
XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 



X 
XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 



GENERATION 7 



XXX XXX 

X X X X 

* x X X 

X X X X 

XXX XXX 



GENERATI ON 8 



X X 

X X 

X X 

XXX XXX XXX XXX 

X X 

X X 

X X 



If we continue to run this simulation, each horizontal set ofX's 
nips to become a vertical set, and the vertical sets become horizontal. 
This pattern of three alternating from horizontal to vertical is one of 
a number of patterns that regularly crop up in runs of the program. 
This particular pattern is commonly known as "traffic lights." 
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The Rules 



Conway's rules are not very complicated, but they are sufficient 
to give rise to the marvelous effects we've been looking at They as- 
sume each cell has eight neighbors. (We keep the outermost ring of 
cells empty; these are checked, but not printed out) If a cell has two 
or three neighbors , it survives to the next generation. If a cell has four 
neighbors, it dies out in the next generation due to overcrowding. If 
there are exactly three cells neighboring an empty cell, a cell is 
"born" in that location in the next generation. 

The rules are applied simultaneously across the whole grid. We 
do this by having a second grid, which records the changes as the 
first grid is scanned. The second grid is then copied into the first be- 
fore it is printed. 

This is the listing that produced the effects above. The DATA 
statements at the end can be, of course, changed to whatever initial 
colony you desire: 



10 REM CONWAY'S LIFE SIMULATION 
20 REM DEFINED INITIAL COLONY 



30 


G0SUB 46 : R EM INITIALIZE 




40 


REM 




50 


REM 


MAJOR CYCLE 




6 


GENERATI 0N=GENERATI 0N+1 




7 


GOSUB 290iREM PRINTOUT 




80 


G0SUB 1 1 : R EM EVOLVE 




90 


GOTO 


60 




1 00 


R EM 


it************************ 


1 1 


REM 


EVOLVE 




1 20 


FOR 


X=2 TO 12 




1 30 


FOR 


Y=2 TO 12 




1 40 


C = 






1 50 


I F 


A$ [X-1 , Y-1 ) = " X " THEN 


C = C + 1 


1 60 


I F 


A $(X-1 , Y ) = " X 11 THEN C 


= C + 1 


170 


I F 


A$ (X-1 , Y + 1 ] = " X » THEN 


C = C + 1 


180 


I F 


A $ ( X f Y - 1 ) = " X " THEN C 


= C + 1 


1 90 


IF 


A$(X,Y+1)="X" THEN C 


= C + 1 


200 


I F 


A$ (X + 1 , Y-1 ) = » X " THEN 


C = C + 1 


21 


I F 


A$(X+1„Y)="X» THEN C 


= C + 1 


220 


I F 


A$ (X + 1 , Y+1 ) = " X " THEN 


C = C + 1 


230 


IF 


A $ ( X , Y ) = " X " AND C <>2 


AND C<>3 


N B $ t X , 


Y ] = » » 




240 


I F 


A$(X,Y]=" " AND C=3 


THEN B$ [X 



" X " 
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250 NEXT Y 
260 NEXT X 
270 RETURN 

280 REM ************************* 
290 REM PRINTOUT 
300 CLS 
310 PRINT 

320 PRINT TAB[4) {"GENERATION "GENERATION 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 

360 AI(X,Y)=BI[X,Y) 

370 PRINT A $ ( X , Y ) j 

380 NEXT Y 

390 FOR Y=12 TO 2 STEP-1 

400 PRINT A $ ( X , Y ] j 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

4 5 REM ************************* 

460 REM INITIALIZATION 
470 CLS 

480 RANDOMIZE V A L ( R I G H T $ { T I M E $ , 2 ] ) 
490 D EFI NT A-Z 

500 DIM A$(1 3,1 3] ,B$(1 3,13) 

510 PRI NT i PRI NT " PLEASE STAND BY ... " 
520 FOR X=1 TO 13 
530 PRINT 1 4-X j 
540 FOR Y=1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A $ ( X , Y ] = " » 

570 B$[X,Y)=A$(X,Y) 

580 NEXT Y 

590 NEXT X 

600 READ DsIF 0=99 THEN 630 

610 READ E!A${D,E)="X»iB$[D f E)="X« 

620 GOTO 600 

6 30 GENERATIONS 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 
660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 
■>00 DATA 99 



Colonies at Random 

If you prefer to let your computer generate a starting colony at 
random, leaving you simply to admire its work, add the following 
lines: 

555 IF RND (1 ] >.5 THEN A8(X F Y)="X":G0T0 5 
7 

595 GOTO 630 



The evolution of a randomly generated colony is always fasci- 
nating to watch, as these sample runs indicate: 

GENERAT I ON 1 

X X XXXXXXXXXX X X 
X XX XX XX X 

X XX XX XXX 

X XXXXXX x 

X XX x 

X X XX 
X XX XXXXXX XX X 

X XXX X X XXX X 

X XXXXXX x 

XXX XXX 

XXXXXX XX XXXXXX 



GENERATI ON 2 

XX XXXXXX XX 
XX X XX X XX 

XX XXX XX XXX XX 

X XX X 

XX 

XXX XX XXX 

XXXXX XXXXXX xxxxx 
XX XX XX XX 

XXXXXXXXXX 
X XX XX XX X 

X XXX XXX X 
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GENERATI ON 3 



X XXXX X 
XX XX XX 

XX XX XX XX XX 
X XX X 
X XXXX X 

XX XX XX 

X XXXXXXXXXXXX X 

XX XX XX XX 

XX XXXXXX XX 

X XX XX XX X 
XX XX 



GENERATION 9 



XX XX 
XX X X XX 

X X 
X XXXX X 
XXXX 
X XX X 
XX X X XX 

X XX XX X 

XX XX 



GENERATION 12 



XX XX 
XX XX 
XXX XXX 
XXXXXXXXXX 
XX XX XX 

XXXXXX 
XXXX 
XXX XXX 



GENERATI ON 24 



XX XXX 
XX XX 
XX X 
XX XX 
X X 
X 

XX 
XX XX 
X X 
XX 



XXX XX 
XX XX 
X XX 
XX XX 
X X 
X 

XX 

XX XX 
X X 
XX 



GENERATION 39 

XX XX 
X X XX XX X X 

XXX XXX 
XX XXX X X XXX XX 
X XXX XXX X 

XXX X X X X XXX 

XX XXXXXXXX XX 
X X XX XX XX X X 
X XX XX XX X 

X X X X 

XX XX 



GENERATI ON 51 



XXX X X XXX 

X XXX XX X X 

XX XX 

XXX XXX 



GENERATION 62 

X X 
XX XX 

X X XX XX X X 

X XX XX X 
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Simulations 



In this section of the book we will create programs that perform two 
simulations at once. First, the programs simulate the behavior of a 
robot who follows a series of commands we enter before the program 
is run. Second, the programs emulate a computer language inter- 
preter, enabling the computer, and the computer-controlled robot, to 
understand instructions we give it in a Robot Control Language RCL, 
developed especially for this book. 

In mid 1983 Muse Software, of Baltimore, released a superb ro- 
bot simulation program under the name of Robotwar. This program 
allows you to pre program a number of robots before setting them 
loose on a computer-screen battlefield to fight it out for victory. Ro- 
botwar allows you to program the robots in a language which is es- 
sentially English, with a few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, ROBOT LOGO and POINT-DUTY ROBOT (which is 
derived from the first program), are much simplier than Robotwar, 
yet still produce satisfying, and surprisingly interesting, results. 

We'll look first at ROBOT LOGO. To show you what it can do, and 
to give you an idea of what an RCL listing looks like, here's a program 
that gets the robot to trace out my initials on the screen, leaving a 
trail as it goes: 
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GO 6,10 
FACE 90 
FORWARD 7 
GO 8,26 
FORWARD 5 
PR 

GO 6,16 
FACE 180 
FORWARD 6 
GO 6,26 
FORWARD 6 

GO 6,3^ 
FORWARD 6 
PRINTOUT 



This is the result of running that program: 



There are twelve commands in RCL, any of which, included in a 
program, can be abbreviated to its first two letters. The RCL program 
is written into the overall BASIC program, as a set of up to twenty 
DATA statements, terminated with a DATA statement that just con- 
tains an asterisk. These DATA lines are kept near the beginning of 
the program. The current line being processed appears at the top of 
the screen as the progam is running, so you can see the relevant line, 
and its effect, as it occurs. 

The Language 

Here is the complete vocabulary of RCL: 
START (abbreviated to ST) Start again. 

PRINTOUT (PR) Stop the robot action, clear the screen, and print 
out the current situation before continuing with the program 



* 



X X X X X X X 



X X 

X X 

X X X X X 

X X 

X X 

X X 



X 
X 
X 
X 
X 



run. 
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FORWARD (FO) This is followed by a single number, and it tells the 
robot to move forward the number of "steps" or "spaces" indi- 
cated by the number that follows the command. 

BACK (BA) The opposite, naturally enough, of FORWARD. 

TURN (TU) Followed by a number, this command turns the robot 
through the specified number of degrees; it starts a run at zero 
degrees, designated as facing the top of the screen. 

HOME (HO) Returns the robot to the center of the screen, facing up- 
wards. 

CLEAN (CL) Cleans the previous steps away. (The action of this 
command, like the others, will become clear once you use it) 

GO This is followed by two numbers, which are the coordinates to 
which the robot moves without leaving a trail between its old po- 
sition and the new one. 

RANDOM (RA) Moves the robot to a randomly chosen position on 
the screen; acts as a random GO. 

REPEAT (RE) Followed by a number, this command allows you to 
cycle through a section of the program a specified number of 
times before continuing. This can produce some fascinating ef- 
fects, as you'll see shortly. 

END REPEAT (EN) Terminates the REPEAT cycle; all the com- 
mands in the RCL program that lie between REPEAT and END 
REPEAT will be cycled through the number of times specified. 

FACE (FA) Followed by a number, this turns the robot to face an ab- 
solute angle, with the top of the screen as zero degrees (whereas 
TURN is relative to the current angle the robot is facing). 

This short set of commands can be combined to produce many 
startling results. If you are at all familiar with the Logo programming 
language, you will recognize that several of the RCL commands are 
very similar to the turtle graphic commands in Logo. Logo was de- 
veloped under Seymour Papert, with Marvin Minsky, Harold Abelson, 
and Andrew diSessa, at the Massachusetts Institute of Technology by 
the Artificial Intelligence Group. It was designed so that the way it 
was used by programmers would be closer to the way human beings 
usually solve problems, rather than being heavily influenced by how 
machines run programs. Of course, our RCL is pretty limited in com- 
parison with Logo, although it can easily be extended to whatever 
level of complexity you like. Studying the listing will show you how 
it is relatively easy to write a program that interprets another pro- 
gram written in a language you have created. 

Despite its limitations, you can have a lot of fun with RCL — as 
the following sample runs indicate. 
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This RCL program produces octagons: 



OCTAGON 

GO 11,35 
REPEAT 8 
FORWARD 4 
TURN 45 
END REPEAT 
PRINTOUT 



X X X X X 



X 
X 
X 
X 
X 



1 
1 



X X X X X 



You'll get diamonds with this one: 

DIAMONDS 

RANDOM 
FACE 45 
REPEAT 4 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 



And this RCL listing creates squares: 



SQUARE 

GO 11,35 XXXXXXX 

REPEAT H X y 

FORWARD 6 X y 

TURN 90 Y y 

END REPEAT £ * 

PRINTOUT XXXXXXX 



Descending triangles are easy. Note that we're using abbreviated 
commands in this RCL listing: 



X 

X X 
X X 
X X X X 



X X 
X X 
X X X X 

X X 
X X 
X X X X 

X X 
X X 
X X X X 

DESCENDING TRIANGLES x x 

X X 

GO 5,5 X X X X 

RE 6 XX 

FO 3 XX 

TU 135 X X X X 

FO 3 X 

TU 135 

FO 3 

FA 90 

FO 3 

FA 180 

FO 3 

FA 

PR 

EN 
a 
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The next RCL program gets our robot to walk down stairs: 



STAIRS 

GO 1 , 1 
RE 6 
FACE 90 
FORWARD 3 
FACE 180 
FORWARD 3 
END REPEAT 
PRINTOUT 
« 



If you're feeling very creative, you can also get the robot to trace 
out pictures, like my initials earlier, or this "side view of a table": 



xxxxxxxxxxx 
X x 
X x 
x x 

X X 
X 

X X 

X x 

SIDE VIEW OF TABLE x ' x 

X X 



GO 20,50 
FACE 315 
FORWARD 9 
FACE 90 
FORWARD 10 
FACE 225 
FORWARD 10 
PRINTOUT 
• 
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X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 



Writing a Program 



As I said earlier, the RCL program is held in a series of DATA 
statements near the beginning of the listing: 

100 REM ROBOT LOGO 

110 GOSUB 17305REM INITIALIZE 

120 GOTO 490 

130 REM **************************** 

140 REM 

150 REM 

160 REM 

17 REM 

1 8 REM 
19 REM 

2 REM 
210 REM 
220 REM 
230 REM 
240 REM 
2 5 REM 
260 REM 
2 7 REM 
2 8 REM 
290 REM 
300 REM 
310 REM 

320 DATA " * " 

330 REM *•••*••••****••*******•••••• 



Here's a listing to create random octagons. We can learn a lot 
about RCL by examining it: 

OCTAGON 

RANDOM 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 
START AGAIN 
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It begins with RANDOM, which moves the robot to a randomly 
chosen position on your screen. The dimensions of the screen are 
included within the program (see lines 1770 and 1780 in the listing 
in the next chapter), so it can be changed easily to work on your sys- 
tem no matter what its screen size. 

Once the robot is in place, the computer comes to the line RE- 
PEAT 8. This tells it, naturally enough, that the next section of the 
program (down to the END REPEAT) is to be run through eight times. 
The robot moves FOWARD 2, then TURNs through 45 degrees. Once 
it has done this eight times, it has traced out an octagon, which 
PRINTOUT puts on the screen for you to see: 



X X 
X X 
XXX 
XXX 
X X 

X 
X 
X 

X X 
XXX 



X 
X 
X 



XXX 



XXX 



X 
X 
X 
X 
X 



XXX 



XXX 



XXX 
X X X X X 

X X x - 

X XX 
X XX 
X XX 
X X X X 

XXX 



XXX 
X X 
X X 
X X X 
X X X 
XX X 
XXX 



The final command, START AGAIN, sends action back to the first 
line of the program, to select a new random robot position. RCL au- 
tomatically rejects values that are off the screen, so the program will 
not crash if you try to walk off the edge of the robot's world. It will 
simply draw the required material "off the screen," as it were, and 
then continue at the correct place when it returns to the screen. 

From the examples we've looked at, you can see that the robot 
can be made to do a great deal. The biggest limitation is in the TURN 
and FACE commands. In its present form, it can only work in incre- 
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ments of 45 degrees, and will change any angle into the closest mul- 
tiple of 45 before it sends the robot out along that path (see lines 1040 
and 1620). This restriction was necessary in order to ensure that, de- 
spite the very rough resolution of the grid upon which the robot 
walks, a reasonable picture was still drawn by the robot's trail. 

The full ROBOT LOGO listing is presented in the next chapter. 
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You're sure to have a lot of fun using this listing to get the robot to 
follow programs you have devised. Simply place them, in the form of 
DATA "REPEAT 8", in lines 140 though to 310 (note the use of quo- 
tation marks around the RCL statement). Line 320, where you see a 
lone asterisk in the DATA statement, tells the program that it has 
come to the end of your listing. 

I got my program listings to the printer by running the program, 
then entering and running the following directly: 

FOR Z=1 TO 20:LPRINT A$(Z):NEXT Z 

In its present form the program can cope with RCL programs 
that are up to twenty lines long. If you want it to accept longer pro- 
grams, simply change the 20 in lines 530 and 1820 to the number of 
commands you want to include. Remember that you need to allow for 
a command slot to hold the asterisk (end-of-program flag) line. 

Here, then, is the listing so that you can run your own robot: 

100 REM ROBOT LOGO 

110 G0SUB 1 7 3 : R E M INITIALIZE 

120 GOTO 490 
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130 REM **************************** 
140 REM 

15 REM 

16 REM 
170 REM 
18 REM 
190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 

2 8 REM 
290 REM 

3 REM 
310 REM 

320 DATA " * " 

330 REM **************************** 
340 REM INT U X , A X 

350 UX=INT(UX+.5] : A X= I N T ( A X+ , 5 ) 
360 RETURN 

370 REM **************************** 

380 REM PRINT OUT 

390 CLS.-REM OR LOCATE 1,1 OR SIMILAR 

400 PRINT "STEP"PSN" > " ;A$[PSN]sPRINT 

410 FOR J=1 TO DEPTH 

420 FOR K=1 TO BREADTH 

430 PRINT Z * ( J , K ) ; 

440 NEXT K 

450 PRINT 

460 NEXT J 

470 RETURN 

480 REM **************************** 

490 REM READ PROGRAM 

500 C0UNT=C0UNT+1 

51 READ A$ [ COUNT] 

520 IF A$(COUNT)="*" THEN 550 

530 IF C0UNT<20 THEN 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PSN=OsREM PROGRAM STEP NUMBER 



570 


PSN 


=PSN+1 








580 


I F 


PSN=21 


THEN 


5 8 :REM END 




5 9 


F L A G = 








6 


M $ = 


A$ ( PSN) 








61 


I F 


M $ = " * " 


THEN 


61 i R EM END 




620 


N $ = 


L EFT $ [ M 


« ,2) 






6 30 


I F 


N $ = " S T " 


THEN 


560:REM START 


AGAIN 


6 40 


I F 


N $ = " P R " 


THEN 


GOSUB 3 8 : R E M 


PRINTO 


UT 












6 50 


I F 


N $ = " F " 


THEN 


F L A G = 1 




660 


I F 


N $ = " B A " 


THEN 


F L A G = 2 




670 


I F 


N $ = " T U " 


THEN 


F L A G = 3 




680 


I F 


N $ = " H " 


THEN 


F L A G = 4 




6 9 


I F 


N $ = " C L " 


THEN 


F L A G = 5 




700 


I F 


N $ = " G " 


THEN 


FLAG=6 




71 


I F 


N $ = " R A " 


THEN 


F L A G = 7 




7 20 


IF 


N$="RE" 


THEN 


F L A G = B 




730 


I F 


N $ = " E N " 


THEN 


F L A G = 9 




7 40 


I F 


N $ = " F A " 


THEN 


F L A G = 1 




7 50 


ON 


FLAG GOSUB 780,940,1000,1160,1220 


,1260,1400,1460,1530,1580 




760 


GOTO 570 








770 


REM 


###*#*##***#######*#*###**** 


780 


R EM 




FORWARD 




7 90 


M $ = 


M I D $ [ M $ 


, 4 ] 






800 


I F 


ASC( M$ J 


=87 THEN M $ = M I D $ ( M $ 


t 6 J 


8 1 


F$ = 


ii p ii 









820 NU M = V A L ( M $ ) 

830 FOR E=1 TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 

850 IF AX<1 OR AX>BREADTH THEN 880 



= THE '*2' AT END OF NEXT 
BETTER ON YOUR SYSTEM 
THEN UX=UX+UP : AX=AX+AC*2 
THEN UX=UX-UP:AX=AX-AC*2 



8 60 


ZMUX.AX] 


870 


REM DELET 


TWO 


LINES IF 


880 


IF F $ = " F " 


8 90 


IF F$="B" 


900 


GOSUB 340 


9 1 


NEXT E 


920 


RETURN 


930 


REM * * * # * 


940 


REM 


950 


M $ = M I D $ ( M 


960 


IF ASC[ M$ 


970 


F $ = " B " 



BACK 

THEN M $ = M I D $ ( M $ , 3 ) 



980 G 0T 8 2 

990 REM **************************** 
1000REM TURN 
1010 M$=MID$(M$,4) 

1 20 IF ASC(M$J=78 THEN M $ = M I D $ ( M $ , 3 ) 

1030 NUM=VAL[M$) 

1 040 Y=I NT [ [ NUM + 1 7 . 5 ] /45 ) 

1050 IF Y=0 OR Y=8 THEN RETURN 

1060 FOR J=1 TO Y 

1070 IF UP=-1 AND AC=0 THEN AC=1 : GOTO 11 
30 

1080 IF UP=0 AND AC=1 THEN UP=1sG0T0 113 


1090 IF UP=1 AND AC=0 THEN AC=-1 sG 0T0 11 
30 

1100 IF UP=0 AND AC=-1 THEN UP=-1:G0T0 1 
1 30 

1110 IF UP=-1 AND AC=-1 OR UP=1 AND AC = 1 

THEN AC = s G T 113 
1120 IF UP=-1 AND AC=1 OR UP=1 AND AC = -1 

THEN UP=0 
1130 NEXT J 
1 1 40 RETURN 

1150 REM **************************** 

1160REM HOME 

1170 AX=INT( [BREADTH+.5J/2] 

11B0 UX=I NT ( [ DEPTH+ .5 )/2 ] 

1190 UP=-1 : AC = ! R EM FACES UP 

1200 RETURN 

1210 REM **************************** 
1220 REM CLEAN 
1230 GOSUB 1870 
1240 RETURN 

1250 REM **************************** 
1260REM GOX F Y 
1270 P=0 
1280 P=P+1 

1290 IF M I D $ ( M $ , P , 1 ] = " , » THEN 1320 

1300 IF P<LEN(M$] THEN 1280 

1310 RETURN:REM ERROR 

1 320 UX=VAL ( M ID $ ( M $ , 4 , P-1 ) ] 

1330 AX=VAL(RIGHT$(M$,LEN(M«]-P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 
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1360 
1370 
1380 
1390 
140 
1410 
1420 
1430 
1 440 
1450 
1460 

147 

148 
1 490 
15 
1510 
1520 
15 30 

15 40 
1550 
1560 
157 
1 580 
1590 
1600 
1610 
1620 
1630 

16 40 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1 740 
1750 
1760 

1770 
1780 



IF AC<1 OR AOBREADTH THEN 1380 

Z M UX , AX ] =R * 

RETURN 

REM **#********************** * 

REM RANDOM 

AX=INT[RND[1 ) *BREADTH) 

UX= I NT [ RND [1 ) * D E PT H ] 

Z $[ UX , AX ) = R $ 

RETURN 

REM **************************** 
REM REPEAT 
M$=MID$(M$,4] 

IF AS C ( M $ ) =6 9 THEN M $ = M I D $ ( M $ , 5 ) 

R EC0UNT = VAL [ M $ ) 

MARKER=PSN 

RETURN 

REM **************************** 

REM END REPEAT 

RECQUNT=REC0UNT-1 

IF RECOUNT >0 THEN PSN = MARKER 

RETURN 

REM **************************** 



REM 

M$=MID$(M$,4) 
IF ASC( M$)=69 
N U M = V A L [ M $ ) 
Y= I NT [ ( N UM + 1 7 
I F 
I F 



FACE 

THEN M$=MID$(M$,3] 
5 ) /45 ] *45 



I F 
I F 
I F 
I F 
I F 
I F 



Y=0 OR Y=360 THEN UP= 
Y=45 THEN UP=-1 : AC=1 
Y=90 THEN UP=0 : AC=1 
Y=1 35 THEN UP=1 : AC=1 
THEN 
THEN 
THEN 
THEN 



•1 s AC=0 



Y = 1 80 

Y = 225 

Y = 270 

Y = 31 5 



UP=1 ! AC=0 
UP=1 ; AC=-1 
UP = s A C = - 1 
UP = -1 ! A C = - 1 
RETURN 

REM **************************** 

REM INITIALIZE 

CLS 

RANDOMIZE V A L I R I G H T $ ( T I M E $ , 2 ] ] 
REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
BREADTH=80 : REM CHARACTERS ACROSS 
D EPTH = 24 : R EM CHARACTERS DOWN 



1790 BREADTH=BR EADTH-1 
1800DEPTH=DEPTH-3 

1810 UP=-1 s AC=0 s R EM STARTS FACING UP 
1820 DIM A $ [ 2 ] ! R E M FOR ROBOT PROGRAM 
1 830 DIM Z$[DEPTH, BREADTH] :REM DISPLAY 
1840 T$=»X":REM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 
1 8 5 AX = : U X= 

1860 REM FILL ARRAY WITH SPACES 

1 B70 FOR J=1 TO DEPTH 

1880 FOR K=1 TO BREADTH 

1880 Z * { J , K ) = » « 

1900 NEXT K 

1910 NEXT J 

1 920 R ETURN 
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"sinfrOuty 
Robot 



While ROBOT LOGO is interesting as far as it goes, once I had used 
it for a while, I felt that it really didn't go far enough. The program was 
developed, like the others in this book, so they would run on just 
about any computer furnished with BASIC, and therefore used an ar- 
ray to keep track of the robot's movement and current position. 

The POINT-DUTY ROBOT program that follows makes use of the 
PSET command included in the BASIC on my IBM PC to draw dots at 
a much finer resolution than the first program — 320 by 200, rather 
than 80 by 24. Using a machine-specific command like PSET, of 
course means that if a listing of the program for your computer is not 
included in this book, you may have a little more trouble than usual 
in getting the program to run. However, the results are superb, and 
the effort involved in getting the program to run is certainly worth it 
If your computer doesn't use PSET to plot a point on the screen, 
check your computer's BASIC manual for a similar command, such 
as SET, POINT, PLOT, that you can use as a replacement 

Here is the POINT-DUTY ROBOT listing, which is based on the 
ROBOT LOGO program in the previous chapter. It has not been re- 
numbered, so you should find it easy to modify the first listing into 
the second one. The RCL commands are the same, except that PRINT- 
OUT is no longer supported. It is not needed, as the program prints 
out automatically as it is running. 

Note that line 1735 in the listing that follows is an IBM-specific 
command that moves the computer into graphics mode. You will 
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need to drop or convert this line if you're running the program on a 
different computer. 



10D REM POINT-DUTY ROBOT 

110 GOSUB 1730: REM INITIALIZE 

120 GOTO 490 

130 REM **************************** 

140 REM 

1 50 REM 

160 REM 

1 7 REM 

18 REM 
190 REM 
200 REM 
21 REM 
220 REM 
230 REM 
240 REM 
2 5 REM 
260 REM 
270 REM 
280 REM 

2 9 REM 

3 REM 
310 REM 

320 DATA '• * » 

3 3 REM **************************** 

340 REM INT U X , AX 

350 UX = INT(UX+„5] :AX=INT(AX+.5) 

360 RETURN 

480 REM **************************** 

490 REM READ PROGRAM 

500 C0UNT=C0UNT+1 

510 READ A$[C0UNT] 

520 IF A$[C0UNT)="*" THEN 550 

53 IF C0UNT<20 THEN 500 

5 4 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

5 80 IF PSN = 21 THEN 5 8 : R EM END 

5 90 F L A G = 

600 M $ = A $ [PSN] 

610 IF M t = " ♦ » THEN 61 I REM END 
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6 SO 


N $ = LEFT 


S ( M 1 , 2 ] 






630 


IF N $ = " 


ST" THEN 


560sREM START 


AGAIN 


6 50 


IF N $ = " 


F " THEN 


F L A G = 1 




660 


I F N»=" 


B A " THEN 


F L A G = 2 




670 


I F N $ = " 


T U " THEN 


F L A G = 3 




6 80 


IF N $ = " 


HO" THEN 


F L A G = 4 




7 00 


IF N $ = " 


GO" THEN 


F L A G = 5 




7 1 


I F N $ = " 


R A " THEN 


F L A G = 6 




7 20 


I F N 1 = " 


RE" THEN 


F L A G = 7 




7 30 


I F N $ = " 


EN" THEN 


F L A G = 8 




7 40 


IF N $ = " 


FA" THEN 


F L A G = 9 




7 50 


ON FLAG 


GOSUB 7 


80, 940, 1000,1160, 126 


,1400,1460, 


15 3 0,158 







7 6 


GOTO 57 









770 


REM * * * 


******** 


***************** 


7 80 


REM 


F 


ORWARD 




7 90 


M $ = M I D $ 


( M $ , 4 ] 






800 


IF ASC [ 


M S ] =87 T 


HEN M $ = M ID S ( M $ , 


6 ] 


8 10 


F $ = " F " 


< 






820 


N U M = V A L 


(MS) 






8 30 


FOR E=1 


T N UM 






8 40 


IF UX <1 


OR UX>D 


EPTH THEN 8B0 




850 


I F AX < 1 


OR AX>B 


READTH THEN 880 




8 6 


PRESET 


[ AX , UX ] 


: PSET ( AX , UX ) 




8 8 


IF F $ = " 


F " THEN 


UX=UX+UP : AX=AX+ AC 


8 90 


IF F 9 = " 


B " THEN 


UX=UX-UP : AX=AX- 


AC 


9 


GOSUB 3 


40 






91 


NEXT E 








9 5 


RETURN 








930 


REM * * * 




*************** 


* * 


940 


REM 




BACK 




950 


M 1 = M I D $ 


( M $ , 4 ) 






9 6 


IF ASC { 


MS )=75 THEN MS=MIDS[M$, 


3 I 


970 


F 1 = " B " 








9 8 


GOTO 8 2 









9 90 


REM * * * 




*«************* 


* * 


10 


REM 




TURN 




1010 


H $ = M ID 


S ( M S , 4 ] 






10 20 


I F ASC 


( M S ] =7 8 


THEN M$ = MID S ( M $ 


, 3 ) 


1030 


NUM=VA 


L [ M $ ) 






10 40 


Y=I NT ( 


[ NUM + 1 1 . 


25)/22.5) 




1050 


IF Y = 


OR Y=1 6 


THEN RETURN 




1060 


FOR J = 


1 TOY 






1065 


IF UP = 


-2 AND AC=0 OR UP=2 AND 


AC = 2 


THEN 


AC = 1 s G 


OT 113 







1070 IF U P = - 2 AND AC=1 THEN AC=2:G0T0 11 
3 

1075 IF UP=-2 AND AC=2 OR UP=0 AND AC=-2 

THEN UP = -1 j GOTO 1130 

1080 IF UP=-1 AND AC=2 0RUP=1 AND AC=-2 

THEN UP=0 : GOTO 1130 

1 08 5 IF U P = AND AC = 2 OR UP = 2 AND AC=-2 

THEN UP = 1 s GOTO 1130 

1 090 IF UP = 1 A N AC = 2 THEN UP = 2sG0T0 113 


1095 IF UP=2 AND AC=1 THEN AC=0;GOTO 113 


1100 IF UP = 2 AND AC = THEN AC = -1 : GOTO 11 
3 

1105 IF UP = 2 AND AC = -1 THEN AC = -2 : GOTO 1 
1 3 

1110 IF UP=-1 AND AC=-2 THEN UP=-2:G0T0 
113 

1115 IF UP=-2 AND AC=-2 THEN AC=-1:G0T0 
113 

1120 IF UP=-2 AND AC=-1 THEN AC=0 

113 NEXT J 

1140 RETURN 



1230 GOSUB 1870 
1240 RETURN 

1250 REM ****»*♦»**»*•****»*»»»**♦*** 



1270 P=0 

1 280 P=P+1 

1290 IF M ID I ( H S , P , 1 ) = " , " THEN 1320 

1 300 IF P < L E N ( M t ) THEN 1280 

1310 RETURNsREM ERROR 

1 320 UX = VA L ( M ID $ ( M $ , 4 , P-1 ] ) 

1330 AX = VAL(RIGHTt[H$,LEN(M$]-PJ ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 

136 IF AC<1 OR AC >BREADTH THEN 1380 



1150 

116 

117 
1 1 B 
119 
1200 
1210 
12 2 




1260 



REM 



GO X , Y 



1 


3 7 


P S ET ( A X , U X ) 








1 


380 


RETURN 








1 


390 


R E H ********* 


******************* 


1 


400 


R EH 


RANDOM 






1 


410 


AX= I NT ( R ND (1 ] 


♦BREADTH] 






1 


420 


UX = I NT ( R ND ( 1 ) 


•DEPTH ) 






1 


430 


PSET ( AX , UX } 








1 


440 


RETURN 








1 


45 


f) £ ft ********* 


******************* 


1 


46 


REM 


REPEAT 






1 


47 


M $ = MID « ( M $ f 4 ] 








1 


4 8 


IF ASC [ M $ ] =6 9 


THEN M $ = M ID $ [ M S 




5 ] 


1 


490 


REC0UNT=VAL[ M 


• ) 






1 


5 


MARK ER = PSN 








1 


51 


RETURN 








1 


5 2 


REM ********* 


**************** 


* 


* * 


1 


5 3 


REM END REPEAT 






1 


5 40 


REC0UNT=REC0U 


NT-1 






1 


5 5 


IF RECOUNT >0 


THEN PSN=M ARK ER 






1 


5 6 


RETURN 








1 


57 


pi £ M ********* 


**************** 


* 


* * 


1 


5B0 


REM 


FACE 






1 


5 9 


M$=MID$[M$ r 4] 








1 


6 


I F ASC(M$]=69 


THEN M $ = M I D $ ( M $ 


> 


3 ) 


1 


61 


N U M = V A L (MS) 








1 


6 2 


Y = I NT [ [ NUM + 1 1 


„ 25 ] /22 . 5 ) * 22 . 5 






1 


6 3 


IF Y=0 OR Y=3 


60 THEN UP =-2 s AC 


= 





1 


6 3 5 


IF Y = 22 .5 THE 


N UP =-2 : AC = 1 






1 


6 40 


I F Y=45 THEN 


UP=-2 5 AC = 2 






1 


6 45 


I F Y = 67 . 5 THE 


N UP=-1:AC=2 






1 


6 5 


IF Y=90 THEN 


UP=0lAC=2 






1 


6 5 5 


I F Y = 1 1 2 . 5 TH 


EN UP=1 : AC=2 






1 


6 6 


I F Y=1 35 THEN 


UP = 2 s AC = 2 






1 


6 6 5 


I F Y=157«5 TH 


EN UP=2sAC=1 






1 


6 7 


I F Y=1 80 THEN 


UP=2 ! AC=0 






1 


67 5 


I F Y = 20 2 . 5 TH 


EN UP = 2 s AC = -1 






1 


6 8 


IF Y=225 THEN 


UP=2 ! AC=-2 






1 


6 8 5 


IF Y = 2 47 . 5 TH 


EN UP=1 : AC=-2 






1 


6 9 


I F Y=270 THEN 


UP=0 ! AC=-2 






1 


6 9 5 


IF Y = 2 9 2 . 5 TH 


EN UP=-1sAC=-2 






1 


7 


I F Y=31 5 THEN 


UP=-2 s AC=-2 






1 


705 


IF Y = 3 37 . 5 TH 


EN UP=-2 8 AC = -1 






1 


7 1 


RETURN 








1 


7 2 


Pjgfjj ********* 


**************** 


* 


* * 



17 3 REM INITIALIZE 

1 7 3 5 SCREEN 1 : R E M THIS IS AN 

IBM-SPECIFIC GRAPHICS COMMAND 
1 7 4 C LS 

1750 RANDOMIZE VAL(RIGHT$[TIME$,2] ] 
1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
1 770 BREADTH-3 20 I REM CHARACTERS ACROSS 
1780 DEPTH=200 s REM CHARACTERS DOWN 
1790 BREADTH=BREADTH-1 
1 800 D EPTH = D EPTH-3 

1810 UP = -2 : AC = : REM STARTS FACING UP 
1 8 2 DIM A » [ 20 ] s R EM FOR ROBOT PROGRAM 
1920 RETURN 



There are many enjoyable programs you can write for your little 
robot to follow. As you can see from the FACE and TURN sections, 
the program supports angle changes of 17.5 degrees, rather than the 
coarser 45 degrees that was all the ROBOT LOGO could cope with. 

When you have POINT-DUTY ROBOT up and running, you might 
like to try the following programs. 

The first one is GLASS MAGNOLIA: 

GO 100,170 
REPEAT 5 
FORWARD 1 3 
TURN 7 2 
END REPEAT 
START AGAIN 



Adding a single, additional line to that program produces 
CHURCH WINDOW: 



GO 100,170 
REPEAT 4 
FORWARD 1 3 
TURN 90 
END REPEAT 
TURN 22.5 
START AGAIN 
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HAMPTON COURT ROSE is an effective demonstration of the lit- 
tle robot in action: 



r» n inn 
b U 100; 


A f n 
1/0 


n c n c a T 


r\ 
2 


c n. □ taf a □ n 
r U H W A n U 


Q 

o 


T II P N O 
i u n n t c 


R 
* O 


C n D taf A d n 
r UH If AHLI 


b 


TURN P P 


■ o 


FORWARD 
i u n n m n u 


Q 


TURN 22 


. 5 


FORWARD 


1 2 


TURN 22 


. 5 


FORWARD 


1 2 


TURN 22 


. 5 


FORWARD 


7 


TURN 90 




END REPEAT 


START AGAIN 



* 



RCL continues to amaze with SPIRAL NEBULA: 



GO 10 0, 


1 7 


FORWARD 


2 


TURN 22 


. 5 


FORWARD 


5 


TURN 22 


. 5 


FORWARD 


8 


TURN 22 


. 5 


FORWARD 


1 1 


TURN 22 


. 5 


FORWARD 


1 5 


TURN 22 


. 5 


FORWARD 


7 


S T A R T AGAIN 
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CRAZY CRITTER decorates your screen with something sur- 
prising: 



GO 10 0,170 
REPEAT 2 
FORWARD 10 
TURN 9 
FORWARD 12 
END REPEAT 
TURN 22.5 
START AGAIN 



And this is SIGNALMAN FREUD (who worked for the Vienna Rail- 
road Company): 

GO 10 0,170 
TURN 135 
FORWARD 25 
REPEAT 4 
FORWARD 10 
TURN 90 
END REPEAT 
START AGAIN 



In our next program, BUBBLES, we use two REPEAT loops. Note 
these are not, and cannot be, nested, as RCL does not support nested 
loops: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
RAND DM 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 
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Removing the second RANDOM line from BUBBLES turns the 
program into one I have called THE EYES ARE WATCHING YOU: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 



From that we move to HAND ME DOWN MY DANCING CANE: 

RANDOM 
FORWARD 1 5 
TURN 315 
BACK 5 
TURN 2 2.5 
START AGAIN 
* 

And, finally, ONE-WAY STREET: 

RANDOM 
FORWARD 1 5 
TURN 315 
BACK 6 
FORWARD 6 
TURN 2 7 
FORWARD 6 
START AGAIN 
* 
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An enormous amount of energy is now being spent to get computers 
to behave in ways that appear intelligent. Artificial Intelligence (AI) 
research has looked into many of the simple human exhibitions of 
intelligence, such as game playing. It has produced some highly cred- 
itable results—as shown by the current generation of chess ma- 
chines. Expert systems, in which the computer uses the encoded 
expertise of human specialists to reach decisions and give advice, is 
another particularly fruitful area of AI development. Expert systems 
have been developed in a wide range of disciplines. They can now di- 
agnose certain classes of diseases, assist in chemical synthesis, and 
help in the search for mineral deposits. The scope of AI research has 
broadened over the last twenty years and now also covers such topics 
as perception (vision and speech) and the understanding of human 
(natural) languages. 

In this chapter, we'll concentrate on the game-playing side of ar- 
tificial intelligence. The simulation we'll develop plays a very good 
game of CONNECT FOUR, in which two players take turns placing 
pieces in the lowest available position in the columns on a game 
board, trying to be the first to get four of their pieces to form a line in 
any direction. 

It is interesting to note that computer programs that appear to 
display intelligence often work quite differently from the way human 
beings approach the same problems. Typically, computer systems 
analyze the tens of thousands of possible moves, ranking them hier- 
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achically, and choosing the best possible next move. Human players, 
on the other hand, appear to make their decisions almost intuitively. 
Human experts, although they may use some or all of the same raw 
data as an expert system working in the same field, do not examine 
every piece of information that could possibly be relevant before de- 
ciding which of the potential outcomes has the highest probability of 
being correct 

Similarly, in our artificial intelligence simulation program, the 
computer works out its moves in a manner that is quite alien to our 
own thinking. Despite this, it plays extremely well, and will prove a 
difficult, almost impossible, opponent to defeat It assigns a value to 
each possible move, and then evaluates each of these moves in terms 
of whether this will help win the game. It then selects the move with 
the best potential. 

When you're making your own moves, you're far more likely to 
just look at the board, check whether there is any danger of the com- 
puter completing a row of four, and if so, attempt to block it, or select 
a move that "feels" as though it could help lead you to victory. 

The lesson is clear. When writing your own artificial intelligence 
programs, look for the end result you want to achieve, rather than 
trying to emulate your own thinking processes. 

Let's look at our CONNECT FOUR program in action. You enter 
your move as a number between one and eight, and the computer au- 
tomatically places your piece (a small letter "o") at the lowest avail- 
able position in the row designated by the number you have entered. 
The computer pieces are represented by the letter "M": 



OODOOB»0 
OaOBOBOB 



1 234567B 



YOUR MOVE... 
? 4 
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M a 

12345678 



YOUR MOVE 
? 6 



■ . M o M o . , 
1 2345678 



YOUR MOVE . 
? 5 



a a 



s 

Mo 

. . M o M o . . 
1 2345678 



YOUR MOVE. 
? 6 



...Moo.. 
. .MoMo . . 
12345678 



YOUR MOVE... 
? 7 



....MM.. 
...Moo.. 
. , M o M o o . 
1 2 3 45 6 7 8 



YOUR MOVE... 
? 7 



..... M . . 
....MM., 
. . . M o o o „ 
. . M o M o o . 
1 2 3 45 6 7 8 

I HAVE WON 



The victory here is along the diagonal from the top of column six 
down to the bottom of column three. 

Enter this program to start your our experiments in artificial in- 
telligence: 
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10 REM CONNECT FOUR 

20 REM A . W . PEARSON 
3 CLS 

40 PRINT 

5 PRINT 

60 PRINT "CONNECT FOUR" 

7 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
T W E E N " 

90 PRINT "1 AND 8 , ENTER FOR A NEW GAM 
E " 

1—009 

100 FOR F = 1 TO 1 : NEXT F 

1 1 DIM A$(10,10),B(10,2] 

120 F L A G = 

130 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS ( C$-COMPUTER ) 

140 C $ = » M " : H $ = " o " : R E M M FOR MACHINE! 

150 FOR F=1 TO 8 

160 B ( F , 1 ) =6 

170 NEXT F 

180 FOR F=1 TO 6 

190 FOR G=1 TO 8 

2 A $ ( F , G ) = " . " 

21 NEXT G 
2 20 NEXT F 

230 REM ************************* 

240 REM ACCEPT HUMAN MOVE 

250 GOSUB 430 

260 PRINTsPRINT "YOUR MOVE. . . " 

270 INPUT A 

280 IF A=0 THEN RUN 

290 IF A<1 OR A > 8 THEN 270 

300 L=0 

310 IF A $ ( L + 1 , A ) <>" . » OR L = 6 THEN 340 

320 L=L+1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A $ { L , A ] = H $ 

360 B ( A , 1 ]=Bt A,1 )-1 

370 GOSUB 430 

380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************* 
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420 REM PRINT BOARD 
430 CLS 

440 FOR F=1 TO 6 
450 FOR 6=1 TO 8 
460 PRINT A $ t F , G ) ; 
470 NEXT G 
480 PRINT 
49 NEXT F 

500 PRINT "1234567B" 
510 PRINT 

520 I F F L A G = 1 THEN PRINT "I HAVE WON" : EN 
D 

530 RETURN 

540 REM ************************* 
550 REM COMPUTER MOVES 
560 PRINT "MY MOVE..." 
570 MV=0 

580 FOR F=1 TO 8 

590 B [ F , 2 ) =D 

600 NEXT F 

610 FOR F=1 TO 8 

620 FOR X=-1 TO 1 

630 FOR Y=-1 TO 1 

640 IF B [ F , 1 ] =0 THEN 6B0 

650 IF A $ [ B t F , 1 )+X, F+Y]=" n OR A $ [ B ( F , 1 ] + 
X , F + Y ] = " . " THEN 680 

660 IF A* ( B [ F , 1 )+X,F+Y]=H$ THEN GOSUB 81 


670 IF A $ [ B [ F f 1 )+X,F+Y)=C$ THEN GOSUB 91 


680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 P=0 

720 FOR F=1 TO 8 

730 IF B ( F , 2 ] >P THEN P=B{F,2]sN=F 

740 NEXT F 

750 A$[B[N,1),N]=Ct 

760 B(N,1]=B(N,1 )-1 

770 N = 

780 P=0 

790 RETURN 

800 REM ************************* 
810 MV=2 



820 M1=MV 

830 IF A$(B(F,1 )+{X*2) , F+ ( Y*2 J )=H« THEN 
MV=MV+1 

840 IF A$ [ B ( F,1 ) -X, F-Y] =H $ THEN MV=MV+20 
850 IF MVON1+10 THEN 870 

860 IF A$(B(F,1 ]+(X*3] ,F+[Y*3) ]=H$ THEN 
MV=MV+1000 

870 B ( F , 2 ) =B ( F , 2 ] +MV 
880 Ml =0 
890 RETURN 

900 REM ************************* 
910 M V = 2 
9 20 M1=MV 

930 IF A$(B[F f 1)+(X*2],F+(Y*2]]=C$ THEN 
MV=MV+9 

940 IF A$(B(F,1 ]-X, F-Y ) =C $ THEN MV=MV + 20 
950 IF MVO.M1+9 THEN 970 

960 IF A $ ( B [ F f 1 ]+[X*3),F+(Y*3]]=Ci THEN 
MV=MV + 20 00 ! F L A G = 1 
970 B(F,2]=B(F,2)+MV 
980 RETURN 
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This Qnswfstlo 
Chess Machine 



The first recorded attempt to produce a machine that would play 
chess was made in Spain in 1890. The scientist Torres y Quevedo pro- 
duced a little device that would play the end game of a king and rook 
against a king, taking the side with the rook. The machine was always 
able to force mate. 

After reading about Quevedo 's machine in David Levy's fasci- 
nating book Chess and Computers (Computer Science Press, Inc., 
Potomac, Maryland; 1976), I decided to try and write a program that 
would simulate the machine's behavior. The machine can move in 
one of six possible ways. This program reports which of the six moves 
it has used on each turn. 

You'll find that the computer makes a rapid assessment of the 
situation. Here is an example of the program in action. You play the 
single king (the "$" sign). The computer's king is the "K" and its rook 
is the "R": 
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I USED HOVE 1 



ABCDEFGH 



K . 



8 
7 
6 
5 

3 
2 



a a a a a a 



ABCDEFGH 



>> MOVE TO [ LETTER „ NO.]? A2 



I USED MOVE 1 



ABCDEFGH 



8 . 8 

7 7 

6 6 

5 R...K... 5 

4 aaaaoaso ^ 

3 3 

2 $ 2 

1 . 1 



ABCDEFGH 



>> MOVE TO (LETTER, NO.)? B2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 naaBBBD* B 

5 . R > |K ■ * i 5 

3 . . . 3 

2 . $ 2 

1 1 

ABCDEFGH 



>> MOVE TO ( LETTER , NO. ) ? C2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 oooooaoo 8 

5 OfiRoKoBO 5 

4 DSOOBBOII 4 

3 BOSBBBtlB 3 

2 . .$ 2 

1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.]? D2 
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I USED MOVE 1 



ABCD EFGH ' 
8 8 



7 
6 
5 
4 
3 
2 
1 



. , . R K 



.... 



ABCDEFGH 



>> MOVE TO {LETTER, NO.]? E2 



I USED MOVE 2 



ABCDEFGH 



8 
7 
6 
5 
4 
3 
2 
1 



R. , 



a % a a 



8 
7 
6 
5 
4 
3 
2 
1 



ABCDEFGH 



>> MOVE TO (LETTER, NO.]? F2 
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I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 B«e»K* Ba 5 

4 . . . .R . . . 4 

3 3 

2 2 

1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? F1 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 CBOS^OOO 5 

4 R. . 4 

3 3 

2 2 

1 o. 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? Q 
THANKS FOR THE GAME 
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Here's the listing so that you can take on Senor Quevedo's ma- 
chine for yourself: 



10 REM QUEVEDO CHESS MACHINE 
20 GOSUB 1510 : REM INITIALISE 
30 GOTO 60 

10 GOSUB 1320:REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1 1 20 : REM ACCEPT HUMAN MOVE 
80 GOTO 10 
90 END 

100 REM **•»*»•***#»»» 
1 10 REM COMPUTER MOVES 
120 IF QUIT=1 THEN 1080 
130 W1=WK 

140 REM *•*•••**§*•««« 

1 50 REM MOVE ONE 

160 M0VE= 1 

170 KM=INT(BK/10) 

180 RM=INT(R/10) 

1 90 IF ABS(KM-RM)>3 THEN 330 

200 A(R)=46 

210 X=INT(BK/10):Y=INT(R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)<>46 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 270 

250 IF A(R-11)=BK OR A(R-9)=BK THEN 270 
260 R=R-10:GOTO 300 

270 IF A(R+10)<>46 THEN A(R)=R:GOTO 330 

280 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 

0)=BK THEN A(R)=R:GOTO 330 

290 R=R+10 

300 A(R)=ASC( "R") 

310 RETURN 

320 REM *•••*•*•«••»«# 

330 REM MOVE TWO 

340 M0VE=2 

350 KM= BK- 1 * KM 

360 RM= R- 1 * RM 

370 IF ABS(KM-RM) <2 THEN 480 
380 A(R)=46 
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390 IF R> 1 1 THEN IF ( A ( R- 1 2 ) = BK OR A(R-2 
)=BK OR A(R+8)=BK) THEN A ( R ) = R : GOTO 480 
400 IF R> 1 1 THEN IF ( A( R-1 ) = BK OR A(R-11 
)=BK OR A(R+9)=BK) THEN A(R)=R:GOTO 480 
410 Y=BK-10»INT(BK/10) 
420 Z=R-10«INT(R/10) 

430 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN R 

=R+1 :GOTO 450 

440 R = R-1 

450 A( R) = ASC( n R" ) 

460 RETURN 

470 REM ************** 
480 REM MOVE THREE 
490 MOVE=3 

500 WM=WK-10*INT( WK/10) 

510 BM=BK-10«INT(BK/10) 

520 IF ABS( WM-BMX3 THEN 600 

530 IF A(WK-1)<>46 OR A(WK-18)=BK OR A(W 

K-2)=BK OR A(WK+8)=BK THEN 610 

540 IF A( WK-1 1 )=BK OR A(WK+9)=BK OR A(WK 

-22)=BK THEN 610 

550 A( WK) =46 

560 WK=WK- 1 

570 A ( WK ) = ASC ( "K " ) 

580 RETURN 

590 REM ************** 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z=ABS(INT(BK/10)-INT(WK/10>) 

620 IF Z=0 THEN 950 

630 IF 2«INT( Z/2)=Z THEN 790 

640 REM ************** 

650 REM MOVE FOUR 

660 MOVE=4 

670 A(R)=46 

680 IF A(R-10)<>46 THEN 720 

690 IF A ( R- 9 ) = BK OR A( R-1 1 )=BK THEN 720 

700 IF A(R-19) = BK OR A( R-2 1 ) = BK OR A( R-2 

0)=BK THEN 720 

710 R=R-10 :G0TO 760 

720 IF A(R+10)<>46 THEN A(R)=R:GOTO 790 
730 IF A(R+19)=BK OR A ( R + 2 1 ) = BK OR A( R + 2 
0)=BK THEN A(R)=ASC("R") :GOTO 790 
740 IF A(R+11)=BK OR A(R+9)=BK THEN A ( R ) 
= ASC ( " R " ) :GOTO 790 



750 R=R+10 

760 A(R)=ASC( "R") 

770 RETURN 

780 REM *•••*•••••••»* 

790 REM MOVE FIVE 
800 M0VE=5 
810 J=INT(BK/10) 
820 K = BK- 1 * J 
830 L=INT(WK/10) 
840 M=WK-10*L 

850 Z= 1 : IF J<L THEN Z=-10 
860 X= 1 : IF K <M THEN X = - 1 
870 A(WK)=46 
880 W1 =WK 
890 WK=WK+Z+X 
900 G= ABS ( WK- BK ) 

910 IF G=1 OR G=9 OR G= 10 OR G= 1 1 THEN W 
K=W1 : A( WK) =75 : GOTO 950 
920 A ( WK ) = ASC ( "K " ) 
930 RETURN 

940 REM »*•••••••••••# 

950 REM MOVE SIX 
960 M0VE=6 
970 A(R)=46 

980 IF R > 1 1 THEN IF A(R-12)=BK OR A(R-2) 
= BK OR A(R + 8)=BK OR A(R-1)<>46 THEN 1070 

990 IF R> 1 1 THEN IF (A(R-1)=BK OR A(R-11 
)=BK OR A(R+9)=BK) THEN 1070 
1000 Y=BK-10*INT(BK/10) 
1010 Z=R-10*INT(R/10) 

1020 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN 

R=R+1:G0T0 1040 

1030 R=R-1 

1040 A ( R ) = ASC ( *' R " ) 

1050 RETURN 

1060 REM •«*•••••»••••« 
1070 GOSUB 1320 
1080 PRINT: PRINT 

1090 PRINT "I CONCEDE TO THE MASTER" 
1100 END 

1110 REM *•*•**•*#••«***•* 
1120 REM ACCEPT HUMAN MOVE 
1130 REM ENTER ' Q ' TO QUIT 



1 140 MOVE=0 

1150 PRINT ">> MOVE TO (LETTER, NO.)"; 

1 160 INPUT G$ 

1170 IF G$="Q" THEN 1280 

1180 IF LEN(G$)<>2 THEN 1160 

1190 Z=ASC(G$) 

1200 IF Z<65 OR Z>72 THEN 1160 

1210 X=VAL(RIGHT$(G$, 1 ) ) 

1220 IF X<1 OR X>8 THEN 1160 

1230 A(BK)=46 

1 240 BK=10*(Z-64)+X 

1250 IF A(BK).= ASC("R") THEN QUIT= 1 

1260 A( BK)=ASC( "$") 

1270 RETURN 

1280 PRINT: PRINT 

1290 PRINT "THANKS FOR THE GAME" 

1300 END 

1310 REM *•••••••••• 

1320 REM PRINT BOARD 

1330 CLS 

1340 PRINT : PRINT 

1350 IF MOVE>0 THEN PRINT "I USED MOVE" 
OVE 

1360 IF MOVE=0 THEN PRINT 

1 370 PRINT : PRINT 

1380 PRINT TAB( 11); "ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 

1400 PRINT TAB( 8 ) ; J; 

1410 FOR K= 10 TO 80 STEP 10 

1420 PRINT CHR$(A( J+K)) ; 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

1470 PRINT TAB( 11); "ABCDEFGH" 

1480 PRINT: PRINT 

1490 RETURN 

1500 REM #**»•••••*•*** 

1510 REM INITIALISATION 

1520 CLS 

1530 RANDOMIZE VAL( R IGHT$ ( TIME* , 2 ) ) 

1540 MOVE=0 

1550 QUIT=0 

1560 DIM A( 130) 



1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=1 TO 8 

1590 A( J + K ) =46 : REM ASCII OF »." 

1600 NEXT K 

1610 NEXT J 

1620 REM «» PLACE PIECES •» 

1630 REM BLACK KING - HUMAN 

16H0 BK=INT(RND( 1 )*3)+1 

1650 BK= 10*BK+BK+INT( RND ( 1 ) »5) 

1660 A(BK)=ASC( "$") 

1670 REM WHITE KING - COMPUTER 

1680 WK = I NT ( R ND ( 1 

1 690 WK=10«WK+WK+INT( RND ( 1 ) * 2 ) 

1700 IF WK=BK THEN 1680 

1710 A(WK)=ASC( "K") 

1720 REM WHITE ROOK - COMPUTER 

1 730 R=INT(RND( 1 ) *4)+4 

1740 R=10«R+R+INT(RND( 1 )»2) 

1750 IF R=WK OR R=BK THEN 1730 

1760 IF ABS(R-BK)<12 THEN 1730 

1770 A( R ) = ASC ( " R n ) 

1780 RETURN 
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Into the 
Political Arena 



As we discussed earlier, computer programs can also be used to sim- 
ulate any process where the links between elements of the process 
can be expressed as one or more mathematical relationships. The po- 
litical simulation in this chapter, WASHINGTON, D.C., shows this 
very clearly. It's governed by mathematical relationships that repre- 
sent a grossly over-simplified version of the American economy. 

You take the role of the hapless occupant of the Oval Office, run- 
ning — as you'll soon see — an economy that is somewhat out of kilter. 
To retain your popular support (and the Presidency) you have to try 
to keep the whole thing together. You need to do your best to improve 
the standard of living, keep inflation and unemployment down, stim- 
ulate private investment, and generally maintain an acceptable 
growth in the economy, all at same time. You'll discover that a Pres- 
ident's lot is not a happy one. 

The simulation begins with a report on the state of the nation: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .25 YEARS 



STATE OF THE NATI ON 



POPULATI ON 3000B1 9 

NO. UNEMPLOYED 300000 9 % 
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CURRENT WAGES S 100 INFLATION 5 % 

GOVT. EXPENDITURE LAST QTR. $M 118 

UNEMPLOYMENT' COST $M 

INCOME FROM TAXES $ M 

BUDGET SURPLUS[+)/DEFICIT(-) $M 

GROSS DOMESTIC PRODUCT $M 440 



PUBLIC INVESTMENT Q 1 $M 236 



You start each run with a population of around 3,000,000 and an 
unemployment rate of about 10%. You are then asked to make some 
snap judgments on levels of government spending, cost of wages, and 
on your administration's immigration policy: 

0K„ PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 102 

ENTER COST OF WAGES $M? 41 

IS YOUR ADMINISTRATION IN FAVOR OF 

IMMIGRATION THIS QUARTER ( Y/N } ? 

OK ... N 

At the end of my second quarter in office, I found that while I had 
somehow kept inflation and unemployment under control, I was sud- 
denly faced with a budget deficit of over $69 million! On the positive 
side, public investment (and therefore, I hoped, public confidence) 
was on the increase, up from $236 million at the end of the first 
quarter to more than $257 million at this point I decide to increase 
spending slightly: 

PRESIDENT HARTNELL; 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .5 YEARS 



STATE OF THE NATI N 



P0PULATI ON 3001 638 

NO. UNEMPLOYED 287879 9 % 

CURRENT WAGES $ 41 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR, $ M 102 

UNEMPLOYMENT COST $M 11.8 

INCOME FROM TAXES $M 44.4 

BUDGET SURPLUS[+]/0EFICIT(-) $M-69.4 

GROSS DOMESTIC PRODUCT $M 449.2 
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PUBLIC INVESTMENT Q 2 $ M 27 5 .7 



OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING SM? 107 

ENTER COST OF WAGES $M? 43 

I also decide to let a few of the world's tired and hungry masses 
into the land of milk and budget deficits: 

IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER ( Y / N ) ? 

OK ... Y 

HOW MANY IMMIGRANTS WILL YOU ALLOW 
INTO THE US? 

? 100 

At the end of my first year, the deficit has grown to $2 16 million, 
and standard of living has increased by 12%: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 YEARS 



STATE OF THE NATI ON 



POPULATI ON 3004277 

NO. UNEMPLOYED 272309 9 % 

CURRENT WAGES $ 46 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR. $M 111 

UNEMPLOYMENT COST $ M 12.5 

INCOME FROM TAXES $M 50.2 

BUDGET S UR P LUS ( + ) /D EF I C I T ( - ] SM-216.7 
GROSS DOMESTIC PRODUCT $M 4B6.2 
CHANGE IN LIVING STANDARD 12 % 



PUBLIC INVESTMENT Q 4 SM 364.4 



OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 120 

ENTER COST OF WAGES $M? 65 

IS YOUR ADMINISTRATION IN FAVOR OF 

IMMIGRATION THIS QUARTER ( Y / N ) ? 

OK ... N 
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I stumble on, narrowly avoiding disasters each time I turn my 
head. Things start getting really hairy toward the end of my second 
year in office: 

PRESIDENT HARTNELL : 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 ,,75 YEARS 



STATE OF THE NATION 



POPULATION 3008238 

NO. UNEMPLOYED 3773S4 12 % 

CURRENT WAGES $ 66 INFLATION 12 % 

GOVT. EXPENDITURE LAST OTR. $M 125 

UNEMPLOYMENT COST $M 24.9 

INCOME FROM TAXES $ M 69.4 

BUDGET SURPLUS(+)/DEFICIT[-] $M-436.8 
GROSS DOMESTIC PRODUCT $M 866 
CHANGE IN LIVING STANDARD 13 % 



PUBLIC INVESTMENT 1 Q 3 $ M 2 4 3 .2 

OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $ M ? 126 

ENTER COST OF WAGES $M ? 67 

The outcome is inevitable. My time is up: 



PRESIDENT HARTNELL, YOUR 
ADMINISTRATION'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMPLOYM ENT 

AMONG OTHER THINGS... 



THE LACK OF CONFIDENCE IN YOUR 
ADMINISTRATION IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN. ..YOU STEP 
ASIDE TO ALLOW THE VICE-PRESIDENT TO 
OCCUPY THE OVAL OFFICE 



YOU WERE PRESIDENT FOR 2.25 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 9059 
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THE UNEMPLOYMENT RATE BECAME 17 % 
AND THE INFLATION RATE BECAME 17.4 % 
STANDARD OF LIVING CHANGED BY 17 % 
AND THE BUDGET S U R P L U S / D E F I C I T 
WAS SM-5 9 7 . 5 



This is a program you may well enjoy modifying. For example, 
changing the income you get from taxes, will alter the simulation in 
a radical way. You can also fiddle with the thresholds at which the 
public starts waving their fists. 

Line 50 governs the increase in population from quarter to 
quarter. A steeper increase here will make it harder to keep the lid on 
unemployment 

I've been pretty generous with my use of REM statements in this 
program, so you should find it relatively easy to track down the var- 
iables you'd like to modify. Here are the major ones, as listed in the 
initialization section of the program: 



1150 REM *************************** 
1 1 BO REM INITIALIZATION 
1170 CLS 

I 1 BO RANDOMIZE V A L ( R I G H T $ ( T I M E $ , 2 )) 

I I 90 M L = 1 000*1 00 

1S00 P=3*ML«REM P0PULATI ON 
1210 U = P/1 : R EM UNEMPLOYMENT 
1 220 I V = 2 3 6 i REM INVESTMENT 

1230 GE = 1 1 8 : REM GOVERNMENT EXPENDITURE 
1 240 GU = : R EM COST OF UNEMPLOYMENT 
1250 GI=0sREM INCOME FROM TAXES 
1 26 WN = 1 00 : REM NEW WAGES 
1 27 W0 = 1 00 i REM OLD WAGES 
1 280 I P = 5 : R EM INFLATION PERCENT 
1 2 9 GDP = 440 : REM GROSS D OM ESTI C PRODUCT 
1 3 AGDP=440 : R EM BASE YEAR GDP 
1310 R GDP = 440 : REM REAL GDP 
1320 CN=354:REM ECONOMIC CONSTANT 
( USED THROUGHOUT SIMULATION) 
1 330 Z = 1 i GAM E = : F LAG = 
1 340 Y = t REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 
1 3 6 INPUT A $ 
1370 RETURN 
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The part of the program that does all the calculating is also fairly 
easy to unravel, once you know the principal variables: 

490 REM a*®®®*®®******®®**®******** 

500 REM CALCULATI ONS 

51 CN=CN+( CN*IP/1 00 ] 

520 U=P*[GE+IV)/(CN*10]+P*(IP/1000) 

530 GU=U*WN/ML:REM UNEMPLOYMENT COST 

540 GI=(((P-U)*WN*.4)/ML]:REM INCOME 

FROM TAXES 

550 BD = BD + GI-GU-GE : REM BUDGET DEFICIT 

560 AGDP = AGDP*[1 + [IP/"|00] ] 

570 6DP=GE+IV+[[P-U)*WN/ML) 

5 8 RGDP=GDP*440/AGDP 

590 IP=[(GE+IV]/CN*.1+[WN/W0]/100)*100 

600 I V= ( CN*6 7 ] / [ I P*I P ] 

61 V»0 = WN 

620 Z = Z + 1 i I F Z >4 THEN Z=1sY=Y+1 

6 30 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 

660 I F BD >-1 000 THEN RETURN 

670 GAM E = 1 

680 F L A G = 1 

690 RETURN 

70 REM *************************** 

710 REM CHECK STANDARD OF LIVING 

720 IF Y < . 7 5 THEN RETURN < 

730 I F INT((2*([RGDP/AGDP]»100]-100]/3]> 

-1 5 THEN RETURN 

7 40 GAM E = 1 
750 F L A G = 2 
7 6 RETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 

7 90 I F IP <1 5 THEN RETURN 

8 GAM E = 1 
810 F L A G = 3 
820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 I F I NT ( U*1 00/P ] <1 5 THEN RETURN 
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860 GAM E = 1 

870 F LA G = 4 

880 RETURN 

8 90 REM ** 



Here is the complete listing of the WASHINGTON, D.C. program: 

10 REM WASHINGTON D.C. 

20 G0SUB 1 1 60-: REM INITIALIZE 

30 REM *************************** 

40 REM MAJOR CYCLE 

50 P=INT(P+(P*273/ML] ] 

6 GOSUB 1 60 t R EH PRINTOUT 

70 GOSUB 51 s REM CALCULATE 

8 REM NOW CHECK END GAME 

90 GOSUB 7 1 J R EM STANDARD OF LIVING 

100 GOSUB 7 8 : R EM I NFLATI ON RATE 

110 GOSUB 8 40 : R EM UNEMPLOYMENT 

1 20 IF GAM E = 1 THEN CLS: GOTO 890 

130 GOTO 50 

140 REM *************************** 
1 50 REM PRINTOUT 
160 CLS 

1 70 PRINT "PRESIDENT " ; A $ ; " ; " 

180 PRINT "YOUR ADMINISTRATION HAS BEEN 

IN POWER F OR "Y+Z/4" YEARS" 

190 PRINT " 

ii 

200 PRINT " STATE OF THE NATION 

_ _ _ _ " 



210 PRINT " 

in 

220 PRINT " POPULATION "P 

230 PRINT "NO. UNEMPLOYED "INT(U) " " I N T [ 
1 00*U/P ] "% " 

240 PRINT "CURRENT WAGES $ " W " INFLATION 
" I N T ( IP) "% " 

250 PRINT "GOVT. EXPENDITURE LAST QTR . $ 
M " G E 

260 PRINT "UNEMPLOYMENT COST $M"INT(10*G 
U )/1 

270 PRINT "INCOME FROM TAXES $M"INT(GI*1 
0]/10 



280 PRINT "BUDGET SUHPLUS(+]/DEFICIT[-J 

$M"INT(BD*10]/10 

2 90 PRINT "GROSS DOMESTIC PRODUCT $ M " I N T 
[ GDP*1 0]/10 

300 IF Y+Z/4> . 5 THEN PRINT "CHANGE I N LI 
VI NG STANDARD "INT((2*((RGDP/AGDP)*100)-1 

J / 3 } " % " 

310 PRINT " 

n 

3 20 PRINT "PUBLIC INVESTMENT "Y"Q"Z"$M" IN 
T [ I V* 1 J /1 

330 PRINT " 

ii 

340 PRINT "OK, PRESIDENT "; A $;"... " 

350 INPUT "ENTER GOVERNMENT SPENDING $M" 

! GE 

360 INPUT "ENTER COST OF WAGES $ M " ; W N 
370 PRINT "IS YOUR ADMINISTRATION I N FA V 
OR OF" 

380 PRINT "IMMIGRATION THIS QUARTER [ Y/N 

1 ? " 

3 90 X$=INKEY$ 

400 I F X $ < > " Y " AND X $ < > " N " THEN 390 
41 PRINT TAB ( 20 ] | " OK . » . " ;X$ 
420 FOR H=1 TO 1 00 : NEXT H 
430 I F X $ <> » Y H THEN RETURN 

440 PRINT "HOW MANY IMMI GRANTS WILL YOU 

ALLOW INTO THE US?" 

450 INPUT M 

460 I F M < THEN 450 

470 P=P+M 

480 RETURN 

490 REM *************************** 
500 REM CALCULATIONS 
51 CN=CN+(CN*IP/100] 

520 U=P*[GE+IV)/(CN*10)+P*[IP/1000) 
530 GU=U*WN/ML:REM UNEMPLOYMENT COST 
540 GI=( ( (P-U]*WN*.4]/ML) :REM INCOME 

FROM TAXES 
550 BD=BD+GI-GU-GE: REM BUDGET DEFICIT 
560 AGDP = AGDP*(1 + [IP/100] ] 
570 GDP=GE+IV+{ [P-U] *WN/MLJ 
5 8 R 6D P=GD P * 440/A GD P 

590 IP=((GE+IV)/CN*.1+(WN/W0]/100]»100 



600 IV=[CN*67}/(IP*IP) 

6 10 W = W N 

6S0 Z=Z+1sIF Z>4 THEN Z=1 : Y=Y+1 

630 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 

6 6 IF BD >-1 000 THEN RETURN 
670 G A M E = 1 

6B0 F L A G = 1 

690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 

7 20 I F Y < . 7 5 THEN RETURN 

730 IF I NT ([ 2* { t RGDP/AGDP ] *1 00 ) -1 00 ) /3 } > 

-1 5 THEN RETURN 

740 GAM E = 1 

750 F L A G = 2 

760 RETURN 

770 REM *************************** 

780 REM CHECK I NFLATI ON RATE 

7 90 I F I P <1 5 THEN RETURN 
800 GAM E = 1 

81 F L A G = 3 

820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

85 I F I NT [ U»1 00/P ] <1 5 THEN RETURN 

8 6 G AM E = 1 
870 F L A G = 4 
880 RETURN 

B90 REM *************************** 

900 REM END OF THE GAME 

91 PRINT "PRESIDENT " ; A t ; " , YOUR" 

920 PRINT "ADMINISTRATION'S POOR ECONOMI 

C " 

930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEP TABLE" 

940 I F F L A G = 1 THEN PRINT "BUDGET DEFICIT 
ii 

950 I F F L A G = 2 THEN PRINT "DROP I N THE ST 
AND ARD OF LIVING" 

960 I F F L A G = 3 THEN PRINT "RISE IN THE I N 
FLATION RATE" 



970 IF F L A G = 4 THEN PRINT "RISE I N UN EM PL 
OYMENT" 

980 PRINT " AMONG OTHER THINGS., 

ii 

a 

990 PRINT " 

ii 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR " 

1010 PRINT "ADMINISTRATION I S 80 BAD THE 
RE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN. . , YO 
U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 
IDENT TO" 

1 040 PRINT » OCCUPY THE OVAL OFFI C 

E " 

1 050 FOR H = 1 TO 1 000 : NEXT H 

1060 PRINT " 



1070 PRINT "YOU WERE PRESIDENT F R " Y + { Z * 
.25) "YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY"P-3*ML 
1100 PRINT "THE UNEMPLOYMENT RATE BECAME 
"INT[U*1000/P]/10"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E"INT(10*IP]/10"X" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y"INT((2*[[RGDP/AGDP]*100]-100j/3] n X" 
1130 PRINT "AND THE BUDGET SURPLUS/DEFIC 
IT WAS$M"INT[10*BDJ/10 
1140 END 

1150 REM *************************** 
1160 REM INITIALIZATION 
1170 CLS 

1180 RANDOMIZE V A L ( R I G H T $ ( T I M E $ , 2 ) ) 

1 1 90 ML=1 000*1000 

1200 P=3*MLsREM POPULATION 

1210 U»P/1 i R EM UNEMPLOYMENT 

1 220 I V = 2 3 6 : REM INVESTMENT 

1230 GE=1 1 8 i REM GOVERNMENT EXPENDITURE 

1240 GU=0 : REM COST OF UNEMPLOYMENT 



1250 GI=0 i REM INCOME FROM TAXES 

1 260 WN = 1 00 : R EM NEW WAGES 

1 27 W0 = 1 : REM OLD WAGES 

12B0 IP=5 :REM INFLATION PERCENT 

1290 GDP=440:REM GROSS DOMESTIC PRODUCT 

1 300 AGDP = 440.'REM BASE YEAR GDP 

1310 RGDP=440iREM REAL GDP 

1 320 CN = 354t REM ECONOMIC CONSTANT 
(USED THROUGHOUT SIMULATION) 

1330 Z=1 : GAME=0 sFLAG=0 

1 340 Y = : R EM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1 360 INPUT A $ 

137 RETURN 
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The numbers that a computer manipulates can represent anything — 
cloud density, intricate subatomic reactions within a complex chem- 
ical experiment, or the number of warriors taking part in a Roman 
raid on an English village. When computers were first used in busi- 
ness, the numbers generally stood for more mundane things like sta- 
tistics, sales, and dollars. In the simulation in this chapter, we'll stick 
to the extremely important, if mundane, subject of money. 

You play a broker dealing in a small market of five companies. 
You start the simulation with $15,000 and are asked to enter a finan- 
cial target for the run: 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 250000 
TOO HIGH! 

ENTER YOUR GOAL FOR THIS SIMULATION, 
$16,000 TO $100,000 

? 16000 
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Once you've done that, the starting state of the market is re- 
vealed: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE [%) s 

23 59 2B 59 41 

CHANCE OF DECREASE [%)s 

31 26 55 B 17 

CURRENT VALUE PER SHAREs 
$ 1.49 $ 1.99 t 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 BOO 
BANK $ 265 TOTAL WORTH $ 15000 

DO YOU WANT TO SELL ANY SHARES (Y/N] ? 



One cycle of buying and/or selling represents a day of trading. 
Each day, you are told the chance of each share rising or falling in 
price. Based on that information, you can decide what to buy or sell: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE [%) s 

23 59 28 59 41 

CHANCE OF DECREASE {%}: 

31 26 55 8 17 

CURRENT VALUE PER SHARE: 
$ 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 
BANK $ 265 TOTAL WORTH $ 15000 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 3000 
YOU DON'T HAVE THAT MANY I 
? 1500 
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DAY 1 



YOUR GOAL IS $ 16000 



COMPANY NUMBERS 

1 2 3 4 5 

CHANCE OF INCREASE [%) : 

23 59 28 59 41 

CHANCE OF DECREASE [%) : 

31 26 55 8 17 

CURRENT VALUE PER SHARE; 
* 1.49 $ 1.99 $ 2.49 $ 2.99 S 3.49 
NO. OF SHARES HELD : 

500 1500 1200 1000 800 
BANK $ 2500 TOTAL WORTH « 15000 



WHICH COMPANY TO BUY? OK 4 
HOW MANY OF 4 TO BUY? 750 



You can only sell and buy shares once each day, so you must 
choose wisely. After you've made your decisions, the computer will 
tell you how you rate as a stockbroker. Some of the assessments, as 
I'm sure you'll discover, can be quite harsh: 



DAY 2 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE [%}: 

51 11 43 32 35 

CHANCE OF DECREASE [%) s 

49 43 8 49 46 

CURRENT VALUE PER SHARE: 
* 1.49 $ 2.1 $ 2.36 $ 3.16 $ 3.49 
NO. OF SHARES HELD: 

600 1500 1200 1750 BOO 
BANK $ 108 TOTAL WORTH J 15329.06 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'BAD' 

<PRESS SPACEBAR TO CONTINUE > 
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However, if you persevere, you may well prosper in the end. Just 
don't allow yourself to be discouraged by assessments such as 
"hopeless": 



DAY 8 YOUR GOAL IS S 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE [%) : 

18 72 B9 24 32 

CHANCE OF DECREASE [%) i 

4 25 1 55 50 

CURRENT VALUE PER SHARE : 
$1.53 $ 2.31 I 2.57 $ 2.69 $ 3.68 
NO. OF SHARES HELD: 

2100 400 1200 1750 800 
BANK $ 191 TOTAL WORTH $15103.32 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 2100 



DAY 11 YOUR GOAL IS % 16000 



COMPANY NUMBER; 

1 2 3 

CHANCE OF INCREASE {%)'. 

87 30 18 
CHANCE OF DECREASE [%] t 

4 50 51 

CURRENT VALUE PER SHARE 
$1.58 $ 2.44 $ 2.69 $ 2.65 $ 3.68 
NO. OF SHARES HELD s 

600 2400 1750 800 

BANK I 355 TOTAL WORTH $ 15352.79 



4 5 
27 30 
44 52 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'HOPELESS' 

<PRESS SPACEBAR TO CONTINUE > 



94 



DAY 17 



YOUR GOAL IS S 16000 



COMPANY NUMBERS 

1 2 3 4 5 

CHANCE OF INCREASE {%]: 

47 65 38 8 47 

CHANCE OF DECREASE {%) t 

32 7 44 25 40 

CURRENT VALUE PER SHARE: 
$ 1.78 $ 2.5 * 2.61 $ 2.98 $ 3.83 
NO. OF SHARES HELD s 

2900 1750 800 

BANK $ 229 TOTAL WORTH $ 16109.47 



YOU'VE HIT YOUR FINANCIAL GOALI 



The STOCK MARKET listing is presented in the following chap- 
ter. 
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14 



The 

STOCK MARKET 

Listina 



When you're ready to challenge the best brains of Wall Street, enter 
and run the following listing. Just don't be too ambitious with your 
financial goals, or you'll never attain financial security. 



10 REM STOCK MARKET 
20 C LS 

30 RANDOMIZE V A L [ R I G H T * [ T I M E $ , 2 J ) 
40 DIM S[5),N(5),P(5),D[5] 

50 S(1)=1.49sS(2)=1 . 99 : S ( 3 ) =2 . 49 : S ( 4 ) =2 . 
99 ! S [ 5 ] =3 . 49 

6 N[1]=2000iN(2)=1500iN(3]=1200:N(4)=10 
00 s N [ 5 ) =800 

70 BB=265iTV=15000iQQ=15000:DAY=1 

80 PR I NT s P R I NT "ENTER YOUR GOAL FOR THIS 

SIMULATION, " 
90 PRINT TAB ( 8 ) J " $1 6 , 000 TO * 1 , " 
1 00 INPUT GOAL 

110 IF G0AL<1 6000 THEN PRINT "TOO LOW I " I 
GOTO 80 

1 20 I F G0AL>1 00*1 000 THEN PRINT "TOO HI G 
H I " : GOTO B0 
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130 REM ************************ 
1 40 R EM MAJOR LOOP 
150 FOR C=1 TO 5 

160 REM ADJUST THE 55 I N NEXT LINE TO 
MODIFY GAME ; BO VERY HARD , 30 VERY EASY 
1 7 D ( C ] =1 NT [ R ND ( 1 ) *55 ) +1 

1 80 P[C)=INT(RND(1)*t100-D(C]))+1 
190 NEXT C 

200 GOSUB 230 
210 GOTO 460 

2 2 REM ************************ 
230 REM PRINTOUT 

240 CLS 

250 PRINT " 

ii 

260 PRINT "DAY "DAY" YOUR GOAL IS 

$ " G OA L 

270 PRINT " 

ii 

280 PRINT "COMPANY NUMBER : " 

290 PRINT TAB [ 2 ] § 1 1 TAB ( 9 ) 5 2 s TAB ( 1 6 ) s 3 5 TA 
B [ 25 ] 5 4 ; TAB ( 32 ] ; 5 

300 PRINT "CHANCE OF INCREASE ( % ) : " 

31 PRINT TAB[2);P(1)$TAB[9);P(2);TAB(16 

];P(3];TAB[25);P(4];TAB(32);P(5) 

320 PRI NT "CHANCE OF DECREASE [%)'." 

330 PRINT TAB [ 2 ] | D ( 1 ] | TAB ( 9) | D ( 2 J ;TAB ( 1 6 

);D[3]|TAB[25);D(4) t TAB[32];D[5] 

340 PRINT "CURRENT VALUE PER SHARE: " 

3 5 PRINT " $" i I NT [ S [ 1 ] *1 00 ] /1 00 ? TAB [ 8 ] J " 
$" ;INT(S[2)*100)/100 ! 

360 PRINT TAB(15)5"$"5lNT[S{3)*100)/100| 

TAB[23]5"*"»INT(S[4)*100]/100; 

3 7 PRINT TAB { 30 ) j " $" 5 I NT ( S ( 5 J *1 00 ] /1 00 

3 80 PRINT "NO. OF SHARES HELD s " 

3 9 PRINT TAB ( 2 ) s N ( 1 ) s TAB ( 9 ] 5 N ( 2 ] ; TAB [ 1 6 

];N(3];TAB(24);N(4]jTAB(31);N(5] 

400 PRINT "BANK $ " I N T [ B B ] " TOTAL WORTH $ 

"TV 

410 PRINT " 

_______ " 

420 IF T V > G A L THEN PRINT "YOU'VE HIT Y 
UR FINANCIAL G A L I " : E N D 
430 RETURN 



440 REM ************************ 

450 REM ** SELL ** 

460 PRINT "DO YOU WANT T SELL ANY SHARE 

S { Y/N] ?" 

470 A $ = I NK EY $ 

480 IF A $ < > " Y " AND A $ < > " N " THEN 470 

490 IF A $ = " N " THEN 690 

500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL?"; 

520 A$ = I NKEY $ 

5 30 I F A $ < » 1 " OR A $ > " 5 " THEN 520 

5 40 C = VA L [ A $ ] 

550 PRINT " OK " C 

5 6 PRINT "HOW MANY F " C " T SELL"; 
570 INPUT N 

5B0 I F N >N [ C ) THEN PRINT "YOU DON'T HAVE 

THAT MANY!" sGOTO 570 

590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 

610 BB = B B + S [ C ) * N : R EM ADD VALUE TO BANK 

620 N ( C ) =N [ C ) -N : R EM SUBTRACT NO . SOLD 

6 3 T V = : R EM SET TOTAL WORTH TO ZERO 

6 40 R EM NOW DETERMINE CURRENT WORTH 
650 FOR C=1 TO 5 

660 TV=TV+N ( C ] *S[C) 

670 NEXT C 

68 TV = TV + BB I REM ADD IN BANK BALANCE 

690 GOSUB 230 

700 REM ************************ 

710 REM ** BUY ** 

7 20 PRINT "DO YOU WANT T BUY ANY SHARES 
[ Y/N ) ? " 



730 


A $ = I NK 


EY $ 




740 


IF A $ < 


>"Y" AND A $ < > " N " THEN 


730 


750 


IF A$ = 


" N " THEN 890 




760 


GOSUB 


230 




770 


PRINT 


"WHICH COMPANY T BUY ? 


II a 

f 


780 


A$=I NK 


EY $ 




7 90 


IF A$ < 


"1" OR A $ > " 5 " THEN 780 




800 


C=VAL [ 


A $ } 




81 


PRINT 


» OK " C 




8 20 


PRINT 


"HOW MANY F " C " T BUY" 




8 30 


INPUT 


N 




840 


I F N*S 


( C ) > B B THEN PRINT "YOU 


DON 



AVE 
850 

a e d 

870 
88 
8 90 
900 
91 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
000 ) ] 
1010 
1020 
00 ] ) 
1030 
1040 
1050 
1060 
1070 
108 
1090 
110 
1110 
1120 
113 
1140 
1150 
116 
1170 
118 
1190 
OF " 
1200 
1210 



ENOUGH MONEY I " s GOTO 8 3 
REM ************************ 

REM ADJUST FIGURES AFTER BUY 
B B = B B - S [ C ] * N 
N [ C ] =N ( C ) +N 
TV = 

FOR C=1 TO 5 
TV = T V + N ( C ) * S ( C ) 
NEXT C 
T V=TV+BB 
GOSUB 230 

REM ************************ 
REM MODIFY ALL INDICATORS 
TV = 

FOR C=1 TO 5 
K = I NT { R ND ( 1 ]*100)+1 
IF K < P ( C ] THEN S(C)=S(C) *(1 + [P[C)/1 

K = I NT ( RND [ 1 ] *1 00 ) +1 

I F K <D [ C ] THEN S ( C ) = S ( G J / [ 1 + [ D [ C ) / 1 

T V = T V + I S [ C ) * N t C ] ) 
NEXT C 
T V=TV+BB 
0.0=00*1 .005 
W= ( TV*1 OO/QQ) -1 00 
IF W=0 THEN W=.1 
W = W + 6 

I F W<1 THEN W = 1 
I F W >1 5 THEN W = 1 5 
RESTORE 
FOR T = 1 T W 
READ A $ 
NEXT T 
PRINT 

REM ************************ 
REM GIVE RATING, START NEW ROUND 
PRINT "YOUR RATING AFTER THAT ROUND 



PRINT "TRADING I S 1 " ; A $ ; " 1 " 
PRI NT : PRI NT " <PR ESS SPACEBAR TO 
CONTINUE >" 

1 220 IF INKEY$<>" » THEN 1 220 : REM NOTE 
SPACE BETWEEN QUOTE MARKS 



1230 D AY=D AY+1 
1 240 GOTO 150 



1250 DATA 

1260 DATA 

1270 DATA 

1280 DATA 
VERAGE" 

1290 DATA 
D » 

1300 DATA 
VE" 



"HOPELESS" , "VERY , VERY POOR" 
"TERRIBLE" , "AWFUL" , "BAD" 
"VERY ORDINARY" , "AVERAGE" 
"REASONABLE" , "A LITTLE ABOVE A 

"FAIRLY GOOD 11 , "GOOD " , "VERY GOO 

"GREAT" s "EXCELLENT" r "SUPERLATI 



If you want to modify the degree of difficulty of this simulation, 
change the 55 in line 170. The lower the number (down to 30), the 
easier it is to make a profit The higher the number (up to 80), the 
more difficult it becomes. The simulation will not run even remotely 
realistically if you use values less than 30, or greater than 80, in line 
170. 



100 




§4 tiffining an 
Automobife 

vyi? djj a Hi B ©3 a 1 r" 



The complex processes of manufacturing and sales are presented, al- 
beit in a very simplified form, in this simulation. It took sixty years 
for the automobile market to become saturated in the United States. 
You have been unfortunate enough to be appointed as president of a 
major car manufacturing concern the very same month that the car 
market really hits bottom. To save the day— and your reputation as a 
hard-hitting, straight-from-the-shoulder, trouble-shootin', crisis- 
solvin' executive — you must get the tottering firm back on its feet 

You take over just as the accountants announce that the com- 
pany is losing $60 million a year. Your task, needless to say, is to try 
and make the company profitable. 

Here's how it begins: 

INDUSTRY SALES 50000 IN MONTH 



YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE % 22995 
OR $M 22.9 PER MONTH 



As you can see, the total sales within the automobile industry 
for the month before the simulation began (month 0) were 50,000 
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units. You start the simulation with your company holding about a 
quarter of the total industry sales, or around 12,500 vehicles. You 
have four factories, which are currently producing more vehicles 
than you can sell: 



MAXIMUM MONTHLY OUTPUT: 
FACTORY 1 t 8900 
FACTORY 2 : 3250 
FACTORY 3 : 2500 
FACTORY 4: 16 25 



TOTAL OUTPUT I S 1 6 2 7 5 



EFFICI ENCY LEVEL IS 7 7 % 

DO YOU WANT T EXPAND OUTPUT ( Y/N ) ? 

N 

D YOU WANT T SELL FACTORY 4 (Y/N)? 

N 



When the simulation begins, the average annual wage for each 
employee is around $23,000. This will rise each three months, due to 
union demands for adjustments to keep up with inflation. Although 
you cannot reduce wages, or refuse to include the raise due to infla- 
tion, you can decide how many people to hire or fire, and at what price 
you will sell each vehicle. When the simulation begins, each car sells 
for around $12,000: 



INDUSTRY SALES 50000 IN MONTH 



YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE « 2 2 9 95 
OR SM 2 2.9 PER M 0NTH 

HOW MANY EMPLOYEES T HIRE? 
HOW MANY EMPLOYEES TO FIRE? 567 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR SM 2 1.9 PER MONTH 



WHAT I S YOUR SELLING PRICE? 12345 
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Once you've answered all the relevant questions, the simulation 
reports back to you on how well — or otherwise — you have performed: 



INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES: 13386 ( 27.4 X OF TOTAL ) 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 21.9 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 10192 

AND AVERAGE SELLING PRICE I S % 12345 
SO THE AVERAGE PROFIT I S $ 2152 
R $ M 28.8 PER MONTH 



PROFIT FOR THE MONTH IS $M 6.9 
fi TOTAL PROFIT TO DATE IS $M 6.9 



DO YOU WANT TO RESIGN ( Y / N ) ? 

N 

i 

That wasn't too bad. You actually made a profit 
The process continues: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES % 1 3 3 86 ( 27 . 4 % OF TOTAL ) 



YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR SM 19.6 PER MONTH 



AVERAGE COST PER VEHICLE IS % 1019 2 

AND AVERAGE SELLI NG PRICE I S $ 12345 

SO THE AVERAGE PROFIT IS $ 2152 
OR SM 28.8 PER MONTH 



PROFIT FOR THE MONTH IS SM 6.9 
& TOTAL PROFIT TO DATE IS SM 6.9 



PRICE? 24000 
THE MARKET 
PRICE? 14000 
IN MONTH 2 
2.5 % OF TOTAL ) 
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WHAT I S YOUR SELLING 
TOO BIG A CHANGE FOR 
WHAT IS YOUR SELLING 
INDUSTRY SALES 51 485 
YOUR SALES : 6435 ( 1 



YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $H 19.6 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 11630 

AND AVERAGE SELLING PRICE IS $ 14000 
SO THE AVERAGE PROFIT IS $ 2369 
OR $M 15.2 PER MONTH 



PROFIT FOR THE MONTH IS SM-4 . 4 
& TOTAL PROFIT TO DATE IS $ M 2.5 



D YOU WANT TO RESIGN ( Y / N ) ? 

N 

Just when you think you're getting it all under control, inflation 
exacts its toll: 

INFLATION RATE THIS QUARTER IS 2.5 % 
AVERAGE WAGES BILL WILL NOW RISE T 
$ 23569 PER EMPLOYEE 

ANY KEY TO CONTINUE 



Your next month is not very good: 

INDUSTRY SALES 49184 I N MONTH 3 

YOUR SALES! 6837 [ 13.9 % OF TOTAL ) 



YOU HAVE 9743 EMPLOYEES 
AVERAGE WAGES ARE $ 23569.88 
OR $M 19.1 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 11835 
AND AVERAGE SELLING PRICE IS $ 14500 
SO THE AVERAGE PROFIT IS $ 2664 
OR $M 18.2 PER MONTH 



PROFIT FOR THE MONTH IS $ M - 1 

a TOTAL PROFIT TO DATE IS $M 1.5 



DO YOU WANT TO RESIGN ( Y / N } ? 
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You start the simulation , as you 've seen , with four factories. You 
have the option of at any time selling off factory number four. Alter- 
natively, you can increase the output of the factories. You'll find that 
the minimum cost per vehicle (and therefore the maximum profit per 
sale) occurs when your factories are running at 85% efficiency. 

Let's decide to sell off factory four, to let the income from that 
sale offset our losses: 



YOUR MONTHLY SALES ARE 5517 



MAXIMUM MONTHLY OUTPUT : 
FACTORY 1 : 8900 
FACTORY 2s 3250 
FACTORY 3 : 2 500 
FACTORY 4s 16 2 5 



TOTAL OUTPUT IS 16275 



EFFICI ENCY LEVEL IS 33 % 

DO YOU WANT T EXPAND OUTPUT ( Y / N ] ? 

N 

D YOU WANT T SELL FACTORY 4 ( Y/N ) ? 

Y 

FACTORY 4 IS VALUED FOB SALE AT SHI 04 
YOU CAN'T REBUY IT LATER IF 
YOU SELL IT... 

D YOU WANT T SELL (Y/N)? 

Y 



I've tried this simulation several times. Each time, the same fate 
occurs. Perhaps I'm just not cut out to run a multi-million-dollar 
business: 

I NDUSTRY SALES 48 991 I N MONTH 1 

YOUR SALES: 5727 ( 11.6 % OF TOTAL ] 



YOU HAVE 9703 
AVERAGE WAGES 
OR $M 19.8 P 



EMPLOYEES 
ARE $ 24521 . 51 
ER MONTH 



AVERAGE COST PER VEHICLE IS $ 12418 
AND AVERAGE SELLING PRICE I S $ 15400 
SO THE AVERAGE PROFIT IS $ 2981 
OR $M 17 PEP MONTH 
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PROFIT FOR THE MONTH IS $ M - 2 „ 8 

St TOTAL PROFIT TO DATE IS SM 68.4 



DO YOU WANT TO RESIGN ( Y / N ) ? 



YOU JUST MADE YOUR TWELFTH MONTHLY 

LOSS IN A ROW. 

YOUR EMPLOYMENT 

IS HEREBY TERMINATED I I 



A much better outcome is, however, possible for those who are 
more skilled than I am: 



WELL DONEI THE COMPANY HAS MADE MORE 
THAN IM 2 . YOU'VE BEEN MADE 

A MEMBER OF THE BOARD 



Here are the principal variables, as they are assigned at the start 
of this simulation: 



1630 REM ************************* 
1640 REM INITIALIZATION 
1 6 50 C LS 

1 660 RANDOMIZE V A L [ R I G H T $ t T I M E $ , 2 } J 
1 67 DIM M ( 5 ] , Y [ 5 ] 

1 680 NE = 1 2000 J R EM STARTI NG NO EMPLOYEES 
1 6 90 AW=22895 s REM STARTING AVERAGE WAGE 
1700 AC=1 1 1 00 : REM COST PRICE/VEHICLE 
17 10 AS=12000:REM SELLING PRICE 
17 20 MI=50*1 000 sMC=1 01 00 
1730 Y [ 3 ] =12500 

1 740 MS=25:EF=77:FA=160tSF=0:MT=0 
1750 FOR J=1 TO 5 
1760 READ M[J) 
1770 NEXT J 
1780 RETURN 

1790 DATA 8900,3250,2500,1625,16275 
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As you can see, the REM statements allow you to trace the var- 
ious formulas that are used in this simulation: 



220 INPUT "HOW MANY EMPLOYEES TO H I R E " ; H 
E 

230 NE=NE+HE: IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES T F I R E " ; H 

E 

250 NE=NE-HE 
26 G0SUB 650 

270 P1 =AS: REM SET P1 EQUAL TO OLD PRICE 
280 INPUT "WHAT I S YOUR SELLING PRICE" ;A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE I N SELLI NG PRICE 
300 IF ABS { P1 -AS] >2500 THEN PRINT "TOO B 
I G A CHANGE FOR THE MARKET" : GOTO 28 
31 CLS 

320 PR I NT s P R I NT i P R I NT 

330 M I = 1 NT [ RND ( 1 ] *40 00 ) +48*1 000 ! R EM THIS 

MONTH'S SALES BY INDUSTRY 
3 40 C = C + 1 ; R EM COUNTS NUMBER OF MONTHS 
350 I F C<3 THEN 470 

360 M=INT(RND(1]*10+1)/4:REM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
S » M " V 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
I S E TO" 

400 AW= { AW*M/1 00 } + A W 

410 PRINT TAB ( B ] J " $"I NT [ AW] " PER EMPLOY 
EE" 

420 I F INKEYSO"" THEN 420 

430 PRI NT : PRI NT TAB(12];"ANY KEY TO CONT 
I N U E " 

440 IF INKEY$ = " " THEN 440 
450 F A = [ FA*M/1 00 ) +FA 
460 C=0 

470 Y (1 ) =NE*1 5/1 2 i REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y(2]=(100-AS/FA]*MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ] ,Y[2] ,M(5] EQUAL TO Y ( 3 ) 
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500 IF Y ( 1 J <Y ( 2 ] AND Y [ 1 ] < M ( 5 ] THEN Y ( 3 ] 
= Y ( 1 ) : GOTO 540 

510 IF Y i 2 } <Y ( 1 ) AND Y [ 2 ) <M [ 5 ) THEN Y [ 3 ) 
=Y(2) S GOT0 540 
520 Y t 3 ) =M [ 5 J 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS ( P1 -AS) <501 THEN Y ( 3 } = 3 . 6 * Y [ 3 } 
/3 

550 I F Y ( 3 ] >M ( 5 ) THEN Y [ 3 ] = Y ( 3 } - 1 9 7 5 ! G OT 
550 

560 MC=[MC*M/100]+MC 

570 EF=Y [ 3 ]/M [ 5 ] *1 00 : REM EFFICIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=[MC*[ABS(85-EF}/3)/100]+MCjREM 

AVERAGE COST PER VEHICLE 
590 MP=[(Y[3)*[AS-AC])-[NE*AW/12)) : REM 

MONTHLY PROFIT 
BOO MP = 1 NT [ MP/ [ 1 00*1 000 )] 
810 TP = TP + MP/1 : R EM TOTAL PROFIT 

I N MILLIONS 

620 M=0 

The complete listing for DETROIT CITY is in the next chapter. 
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SI© 

DETROIT CITY 

gg m m 

Listsps 



Here's the complete listing of the DETROIT CITY program: 

10 REM DETROIT CITY 

20 GOSUB 1 6 40 : R EM INITIALIZE 

30 GOTO 110 

40 MT = MT + 1 iREM COUNTS MONTHS 

50 GOSUB 650 

60 IF T P > 2 THEN 1580 

70 PRINT "DO YOU WANT TO RESIGN ( Y/N ) ? " 
80 GOSUB 1010 

90 IF A $ = » Y » THEN PRINT "OK, CHIEF" s END 
1 00 GOSUB 1 380 
1 1 GOSUB 650 

120 FOR T = 1 T 1 000 : NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
[ Y/N) ?" 

150 GOSUB 1010 

160 IF A$=»Y" THEN 1080 

170 I F SF=1 THEN 21 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
(Y/N) ?" 
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190 GOSUB 1010 

200 IF A $ = " Y " THEN 1250 

21 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE" ; H 
E 

230 NE = NE+HE: IF HE >0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES T F I R E " ; H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 P1 =AS: REM SET P1 EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE" ; A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE I N SELLING PRICE 
300 IF ABS ( P1 -AS) >2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARKET" ; GOTO 280 
310 C LS 

320 PRINTsPRINTrPRINT 

330 MI = I NT ( RND [ 1 ) *4000 ] +48*1 00 I R EM THIS 
MONTH'S SALES BY INDUSTRY 

REM COUNTS NUMBER OF MONTHS 

THEN 470 
RND [ 1 ) *1 0+1 J/4s REM INFLATION 

"INFLATION RATE THIS QUARTER I 

"AVERAGE WAGES BILL WILL NOW R 



TAB ( 8 ] ! " $ " I NT ( AW ) " PER EMP LOY 
E Y $ < > " " THEN 420 

PRINT TAB[12] ; "ANY KEY TO CONT 



3 40 


C=C+1 i 


350 


I F 


C <3 


36 


M = I 


NT [ 


370 


C LS 




3 80 


PRI 


NT 


g ii M ii 


% " 




390 


PRI 


NT 


I SE 


TO" 




400 


AW = 


( AW 


41 


PRI 


NT 


EE" 






420 


I F 


I NK 


430 


PRI 


NT ! 


I NUE 


ii 




440 


I F 


I NK 


450 


F A = 


( FA 


460 


C = 




470 


Y[1 


)=N 


48 


Y t 2 


) = ( 



THEN 440 



1 5/1 2 : R EM SALES BASED ON 

NUMBER OF EMPLOYEES 
D-AS/F A ] *M 1/1 00 : R EM SALES 
BASED ON MONTHLY I ND USTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y ( 1 ) , Y [ 2 ) ,H ( 5 ) EQUAL TO Y { 3 ) 
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500 IF Y ( 1 ] < Y ( 2 ] AND Y ( 1 ) <M [ 5 ) THEN Y [ 3 ) 
=Y ( 1 ] : GOTO 540 

510 IF Y ( 2 ] <Y ( 1 ] AND Y( 2 )<M ( 5 ) THEN Y [ 3 ] 
= Y [ 2 3 S GOTO 540 
520 Y ( 3 ) =M ( 5 J 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 I F AB S ( P1 -AS J <5 01 THEN Y [ 3 ] = 3 . 6 * Y ( 3 ) 
/3 

550 I F Y [ 3 ] > M ( 5 ] THEN Y ( 3 ] = Y ( 3 ] -1 9 7 5 : G OT 
550 

560 MC= { MC*M/1 00 } +MC 

5 70 EF=Y ( 3 ) /M { 5 ] *1 00 I R EM EFFICIENCY % 
AS SALES DIVIDED BY TOTAL OUTPUT 

580 AC=(MC*[ABS[85-EF]/3]/100]+MC:REM 
AVERAGE COST PER VEHICLE 

590 MP=((Y(3]*(AS-AC))-(NE*AW/12)]gREM 
MONTHLY PROFIT 

600 MP=I NT (MP/ (100*1000)] 

61 TP = TP + MP/1 : R EM T OTA L PROFIT 

I N MILLIONS 

6 20 M=0 

630 GOTO 40 

640 REM ************************* 
650 REM REPORT PRINTOUT 
660 CLS 

670 PRINT "INDUSTRY SALES "MI "IN MONTH "MT 

680 IF M T > THEN PRINT "YOUR SALESi "INT( 
Y ( 3 )) " ( " I NT ( Y ( 3 J *1 OOO/MI ]/1 "% OF TOTAL 
) " 

690 PRINT " 

ii 

700 PRINT "YOU HAVE "NE" EMPLOYEES" 

7 1 PRINT "AVERAGE WAGES ARE $ " A W 

720 PRINT » OR $M»INT(AW*NE/(100*1000]/1 

2)/10"PER MONTH" 

730 PRINT " 

ii 

740 I F MT=0 THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS 
$ " I NT ( AC ] 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$" I NT ( AS ) 



770 PRINT "SO THE AVERAGE PROFIT IS $ " I N 
T [ AS-AC ) 

7 80 PRINT "OR $M " I NT { (AS-AC)*Y(3]/(100*1 
000) J/10 "PER MONTH" 

790 PRINT " 

ii 

800 PRINT "PROFIT FOR THE MONTH IS $M"MP 
/1 

810 PRINT "& TOTAL PROFIT TO DATE IS $M " 
INT [ TP*1 J/1 

820 PRINT " 

ii 

830 RETURN 

840 REM ************************* 
850 REM MONTH REPORT 
860 CLS 

870 I F MT >0 THEN PRINT "YOUR MONTH LY SAL 
ES ARE" I NT ( Y [ 3 ) J 

880 PRINT » 

ii 



890 


PRI 


NT 


"MAXIMUM MONTHLY 




OUTPUT:" 


900 


PRI 


NT 


TAB (3]; "FACTORY 


1 


I " I NT [ M [ 1 )) 


910 


PRI 


NT 


TAB ( 3 ) ; "FACTORY 


2 


: " I NT [ M ( 2 ) ] 


9 20 


PRI 


NT 


TAB { 3 } 5 "FACTORY 


3 


S " I NT [ M [ 3 ) ] 


930 


IF 


SF 


=1 THEN 960 






940 


PRI 


NT 


TAB ( 3 ] ; "FACTORY 


4 


l " I NT ( M [ 4 ]] 


950 


PRI 

•i 


NT 


ii 






960 


PRI 


NT 


"TOTAL OUTPUT I S 


it 


I NT [ M [ 5 ) ) 


970 


PRI 

ii 


NT 








980 


PRI 


NT 


"EFFICIENCY LEVEL 


IS" INT(EF) 



II 



990 RETURN 

1000 REM ************************* 

1010 REM GET REPLIES 

1 020 At=INKEY$ 

1 030 I F A $ < > " Y " AND A $ < > " N " THEN 1020 

1 040 PRINT T A B ( 2 2] ; A $ 

1050 FOR J=1 TO 500 : NEXT J 

1060 RETURN 

1070 REM ************************* 

1080 REM INCREASE OUTPUT? 

1 90 I F M [ 4 ] = THEN X = 1 5 : GOTO 1110 



1100 
1110 

II 

112 

1130 
it 



X = 1 8 
PRINT 

PRINT 
PRINT 



IT WILL COST $ M " X " TO EXPAND 



T A B ( B ] ; "OUTPUT BY 1 % " 



1 1 40 PRINT "HOW MANY % YOU WISH TO R A 
I SE OUTPUT?" 

1150 INPUT EPsIF EP<0 OR EP >1 00 THEN 115 


116 
1170 
118 
1190 
1200 
1210 
1220 
1230 
1 240 
1250 

1260 PRINT "FACTORY 4 IS VALUED FOR SALE 

AT $M1 04" 
1270 PRINT 



M ( 5 ] =0 

FOR T=1 TO 4 

M ( T } =M ( T } +M ( T J * EP/ 1 00 

H [ 5 ) =M ( 5 ) +M ( T ] 

NEXT T 

TP = TP-EP *X 

FOR T = 1 TO 500 : NEXT T 
GOTO 170 

REM ************************* 

REM SALE OF FACTORY FOUR 

PRINT "FACTORY 4 I S VALUED FOR 



"YOU CAN'T REBUY IT LATER I F 
YOU SELL IT..." 
PRINT "DO YOU WANT TO SELL [ Y / N ) ? 11 
GOSUB 1 01 
I F A $ = " N " THEN 210 
TP=TP+1 04 
SF = 1 

M ( 5 J =M ( 1 ) +M { 2 ] +M [ 3 J 
M ( 4 J =0 
GOTO 17 

REM ************************* 
REM CHECK ON LOSSES 
IF MP >0 THEN SA = : GOTO 1480 
SA=SA+1 

IF SA >1 1 THEN 1420 
GOTO 1480 
C LS i P R I NT 

PRINT "YOU JUST MADE YOUR TWELFTH ► 



1280 
1290 
1300 
1310 
1320 
1330 
1 340 
1350 
1360 
1370 
1380 
13 90 
1 400 
1410 
1 420 
1 430 
ONTHLY " 
1440 PRINT 



"LOSS IN A ROW 



1 450 PRINT TAB ( 6 ] j "YOUR EMPLOYMENT" 
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1 460 PRINT T A B [ 6 ) } " I S HEREBY TERMINATED ! 
I " 

147 END 

1 480 IF TP > = -250 TH EN 1530 

149 CLSrPRINT 

150 PRINT "UNDER YOUR MANAGEMENT, THE C 
OMPANY H AS " 

1510 PRINT "LOST MORE THAN $M250!" 

1520 GOTO 1450 

1 5 3 IF TP >200 THEN 1570 

1540 RETURN 

1550 REM ************************* 
1 56 REM SWEET SWEET SUCCESS I I I 
1570 CLSrPRINT 

1 5B0 PRINT "WELL DONE! THE COMPANY HAS M 
AD E MORE" 

1590 PRINT " THAN $ M 2 . YOU'VE BEE 

N MADE" 

1600 PRINT " A MEMBER OF THE BOAR 

D " 

1610 FOR T = 1 T 20 : NEXT T 
16 2 END 

1630 REM ************************* 
16 40 REM INITIALIZATION 
1650 CLS 

1 66 RANDOMIZE VAL(RIGHT$(TIME$,2] ) 
1 6 7 DIM M [ 5 ) , Y ( 5 ] 

16 8 NE = 1 2000 : REM STARTING NO EMPLOYEES 
1690 AW=22995 : REM STARTI NG AVERAGE WAGE 
1 70 AC = 1 1 1 00 s R EM COST PRICE/VEHICLE 
1710 AS=1 2 : REM SELLING PRICE 

1720 MI=50*1 000 !MC=1 01 00 
1730 Y ( 3 ) =1 2500 

1 7 40 MS=25:EF=77:FA=160:SF=0:MT=0 
1750 FOR J=1 TO 5 

1 760 READ M [ J] 
1770 NEXT J 
1780 RETURN 

17 9 DATA 8900,3250,2500,1625,16275 
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It all started back in 1823, at a very upper class school in England. A 
Rugby School student, William Webb Ellis, was playing soccer one 
day when he picked up the ball, tucked it under his arm, and ran fran- 
tically across his opponent's goal. In this moment the game that later 
became rugby football was born. From rugby football came rugby 
league, and eventually GRIDIRON. 

Some students from Harvard in 1874 saw the game, as it had 
then evolved, under way at Montreal University, and liked what they 
saw. They took some of the Montreal rules and used them to modify 
a soccerlike game that was already gaining favor in the States. 

The game took off, but was so rough and caused so many inju- 
ries that at the turn of the century many colleges called for it to be 
banned. However, Teddy Roosevelt, who liked the game (and most 
other rugged sports), suggested that instead of banning it, the game 
should be made simpler. A committee formed of leading coaches, 
managers, and players met in 1906 to consider Roosevelt's sugges- 
tion, and from this committee came the GRIDIRON we know today. 

In our program, you can either play against the computer team 
(known as the "Silicon Cowboys") or against another human being. 
In the game shown here, I decided to play against the computer: 

ONE PLAYER OR TWO 
? 1 
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AND THE NAME OF THE VISITING TEAM? 
? HARTNELL ' S RAIDERS 

In this simulation, you have the option of throwing, carrying, or 
punting (including field goal attempts) the ball. The program allows 
for four fifteen-minute quarters, and tests your decision-making 
skills and reflexes. 

THERE ARE 60 MINUTES TO GO 

SILICON COWBOYS TO KICK OFF 
YOU ARE ON YOUR OWN 35 YARD LINE 
SILICON COWBOYS HAVE... 
KICKED 1 YARDS 
KICKED 2 YARDS 
KICKED 3 YARDS 



K I C 


K ED 


5 2 Y 


ARO S 


K I 


CK ED 


5 3 


YARDS 


K I 


CK ED 


5 4 


YARDS 


K I 


CK ED 


5 5 


YARDS 



THE BALL IS CAUGHT ! 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 27 YARDS 
AND RETURNED 2B YARDS 
AND RETURNED 29 YARDS 



THE BALL IS DOWN ON 

HARTNELL'S RAIDERS' S 39 YARD LINE 
> PRESS ANY KEY < 

SI LICO HARTNE 
60 MINUTES TO GO 

HARTNELL'S RAIDERS IN POSSESSION 
DOWN 

10 YARDS TO GO 



START AT 39 YARD LINE 
NOW ON 39 YARD LINE 
61 YARDS TO TOUCHD OWN 
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ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 

Once you've decided on your play, the computer will begin a 
count from one to eleven. You have to get rid of the ball during that 
count. If you don't do so in time, you'll be sacked and lose yardage or 
possession. 

HARTNELL'S RAIDERS, YOUR QUARTERBACK HAS 

GOT THE BALL 

WAIT FOR THE COUNT, HARTNELL'S RAIDERS, 
THEN H I T ANY KEY... 

1 

2 

3 

4 

5 

6 

NICE PUNT... 

YOU ■ VE KICKED 24 YARDS 



The rules behind this simulation tempt you to wait as long as 
possible before delivering the ball. The longer you wait, the farther 
the ball will travel. For example, if you decide to throw the ball, and 
you stop the count on two, the ball will only travel ten yards, but if 
you'd stopped the count on ten, it would have gone forty yards. 



THE BALL IS CAUGHT I 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 17 YARDS 

AND RETURNED 18 YARDS 

AND RETURNED 19 YARDS 

AND RETURNED 20 YARDS 
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THE BALL IS DOWN ON 

SILICON COWBOYS' S 58 YARD LINE 

SILICO HAflTNE 
59.7 MINUTES TO GO 



SILICON COWBOYS IN POSSESSION 

OWN 

1 YARDS TO GO 



START AT 58 YARD LINE 
NOW ON 58 YARD LINE 
42 YARDS TO TOUCHD OWN 



ON THIS PLAY SILICON COWBOYS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 



As you can see, the fact that you've thrown a given distance does 
not mean the play will be completed successfully. The chances of a 
play being complete are linked to the distance thrown. 



TOUCHDOWN! I ! 
TOUCHDOWN I I I 
TOUCHD OWN I ! I 
TOUCHDOWN I I I 
TOUCHD OWN I ! I 
SILICON COWBOYS 6 
HARTNELL ' S RAIDERS 
TO PLAY FOR EXTRA POINT 
> PRESS ANY KEY < 



There is a lot of action in this simulation, and you're sure to en- 
joy dressing it up even more. Here are a few additional scenes of the 
program in action: 



AND RETURNED 27 YARDS 
AND RETURNED 28 YARDS 
AND RETURNED 2. 9 YARDS 
AND RETURNED 30 YARDS 
AND RETURNED 31 YARDS 
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THE BALL IS D OWN ON 

HARTNELL ' S RAIDERS' S 44 YARD LINE 

> PRESS ANY KEY < 

OK 

PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIODOVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SI LICON COWBOYS 27 
HARTNELL 'S RAIDERS 6 

> PRESS ANY KEY < 



PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL • S RAIDERS 8 

> PRESS ANY KEY < 
OK 

15 MINUTES TO GO 



HARTNELL' S RAIDERS IN POSSESSION 
DOWN 

1 YARDS TO GO 



START AT 44 YARD LINE 
NOW ON 44 YARD LINE 
5B YARDS TO TOUCHDOWN 

ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 
2 — CARRY 
OR 3 - PUNT 

119 



3 

4 

5 

6 

7 



GREAT RUNNING BY THE OPPOSITION HAS 
CAUSED YOU TO LOSE 3 YARDS 
> PRESS ANY KEY < 
OK 

GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAM E OVER 
GAME OVER 
GAME OVER 

SILICON COWBOYS 40 
HARTNELL'S RAIDERS 6 



The listing of GRIDIRON is given in the next chapter. 
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GRIDIRON 
Listinq 



When you want to try out for the Green Bay Packers, the New York 
Jets, or the Miami Dolphins, enter and run this listing: 



1 


REM GRIDIRON 






20 


CLS 






30 


RANDOMIZE VA L [ R 


I G H T $ [ 


TIME* ,2) ) 


40 


G0SUB 70 






50 


GOTO 220 






60 


REM *********** 


****** 


******* 


70 


FOR X=1 TO 1500 


: N EXT 


X 


80 


RETURN 






90 


REM *********** 


****** 


******* 


1 00 


PRINT A $ ; S A 






1 1 


PRINT B$;SB 






1 20 


RETURN 






1 30 


REM ********** 


****** 


******** 


1 40 


IF Z$=A$ THEN 


Z $ = B $ s 


RETURN 


1 50 


Z « = A $ i RETURN 






1 6 


REM ********** 


****** 


******** 


1 70 


IF INKEY$<>" " 


THEN 1 


70 


180 


PRINT " > 


PRESS 


ANY KEY <» 


1 90 


IF INKEY$=» " THEN 190 
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200 PRINT TAB[20) 5 " OK » i R E T U R N 
210 REM ************************ 
220 REM INITIALIZE 
230 DEF FNA(X]=INT( R N D [ 1 J *X]+1 
240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

260 IF X<1 OR X>2 THEN 250 

270 IF X=1 THEN VC=1 iA$=" SILICON COWBOYS 
" S GOTO 30 

280 PRINT "WHAT IS THE NAME OF THE HOME 
TEAM?" 

290 INPUT A $ : I F A $ = " " THEN 290 

300 PRINT "AND THE NAME OF THE VISITING 

TEAM?" 

310 INPUT B S : I F B$="" THEN 31 
320 Z$=A$sNU=35 
330 CLS 

340 PRINT "THERE ARE" INT[10*[60-[W/4]])/ 
10" MINUTES T GO" 

350 PRINT T A B [ B ) J Z $ " TO KICK OFF" 

360 PRINT "YOU ARE ON YOUR OWN "NU 11 YARD L 

INE" 

37 IF VC = 1 AND Z « = A $ THEN GOSUB 70 : GOTO 
400 

3B0 PRINT "TO KICK OFF..." 

390 GOSUB 170 

400 A=FNA( 20 ] +40 

41 PRINT Z $ ; " HAVE..." 

420 FOR X=1 TO A 

430 PRINT TAB(X/3) ;"KICKED"X" YARDS" 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 

470 PRINT "THE BALL I S CAUGHT I " 

480 GOSUB 70 

490 A=FNA { 30 ] +1 

500 FOR X=1 TO A 

510 PRINT TAB [X/5 ] 1 "AND R ET U R N E D " X " Y A R D S 
11 

520 NEXT X 

530 NU=ABS( 1 OO-NU+X] 
540 GOSUB 140 

550 PRINT "-- 
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5BD PRINT "THE BALL IS DOWN ON" 
57 PRINT Z $ " ' S " N U " Y A R D LINE" 
580 IF Z$=A$ AND VC=1 THEN GOSUB 
60 

590 GOSUB 170 

TG = 1 : D = : SL=NU 
IF W = 6 OR V» = 1 8 THEN 2010 
IF W=1 20 THEN 2070 
IF W=240 THEN 2140 
CLS 



7 : GOTO 



800 
61 
6 20 
630 
640 

650 PRINT 

660 PRINT 
TO GO" 

670 GOSUB 

680 PRINT 
_ _ _ _ it 

690 PRINT 

700 PRINT 

710 PRINT 

720 PRINT 



LEFT$[A$,6]}SA;LEFT$(B$,e] | SB 
INT(10*[60-tW/4] ] J/1. 0" MINUTES 



70 

» _ . 



Z $ " I N POSSESSION" 

T A B ( 4 ) ;D"DOWN" 

T A B [ 4 ] ;TG" YARDS TO 



GO 1 



730 PRINT "START AT" SL" YARD LINE" 

7 40 PRINT "NOW ON" NU" YARD LINE" 

750 PRINT 1 OO-NU" YARDS TO TOUCHDOWN" 

760 PRINT " 



770 PRINT "ON THIS PLAY » ; 

780 I F Z$=A$ THEN PRINT A $ ; " CAN" : GOTO 8 
00 

790 PRINT B$j" CAN" 

BOO PRINT "EITHER 1 - THROW" 

810 PRINT" 2 - CARRY" 

820 PRINT " OR 3 - PUNT" 

8 30 P=0 

840 IF Z$ = A$ AND VC = 1 AND D < 3 THEN P = 2:G 

OTO 900 

850 IF Z$=A$ AND VC=1 AND TG<7 THEN P=2: 
GOTO 900 

860 IF Z$=A$ AND VC=1 AND ( 1 OO-NU ) <31 TH 
EN P=3sG0T0 900 

870 IF Z $ =A $ AND VC = 1 THEN P = 1 : GOTO 900 

880 K$=INKEY$:IF K$<"1 " OR K $ > " 3 " THEN 8 
80 

890 P = VAL(K$] zPRINT T A B [ 1 } |"OK"P 



900 
910 
920 
930 
940 
950 



GOSUB 

W = W + 1 

CLS 

PRINT 

PRINT 

PRINT 
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Z»|", YOUR QUARTERBACK HAS" 
TAB ( 8 J I "GOT THE BALL" 



960 PRINT "WAIT FOR THE COUNT , " ; Z $ ; " , " 

970 PRINT T A B ( 8 ] ; "THEN HIT ANY KEY..." 

980 I F INKEYSO"" THEN 980 

990 60SUB 70 

10 60SUB 220 

1010 I F E=1 1 THEN 2340 

1020 PRINT " 



1030 ON P GOTO 1050,1310,1590 

1040 REM ************************ 

1050 PRINT "YOU'VE THROWN "E*5" YARDS" 

1 060 PRINT T A B [ 4 ] ; " A N D THE PLAY IS..." 

1 07 A = F N A ( 8 ) 

1080 I F A=1 THEN 1 520 

1 090 A = F N A [ E + 1 ] 

110 I F A=1 THEN PRINT T A B ( 2 ] j " . . . C M P L 
ETE " : GOTO 1220 

1110 PRINT TAB t 20 ) § "... INCOMPLETE" gD=D + 1 



1120 GOSUB 1 70 

1130 PRINT " 

n 

1 1 40 I F D >3 THEN 116 

1150 GOTO 61 

116 PRINT "THAT WAS YOUR 4TH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSION!! 



118 D = Q:TG = 10:NU = ABS[100-NU) : S L= N U 

1190 GOSUB 70 

1200 GOSUB 1 40 

1210 GOTO 61 

1 220 GOSUB 1 70 

1230 NU=NU+(E*5] :TG=TG-[E*5) 

1 240 I F NU >1 00 THEN 1800 

1 250 IF TG <1 THEN 12BD 

1 260 D=D + 1sIF D > 3 THEN 1160 

127 GOTO 61 
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1280 D=0 : TG=1 : SL=NU 
1290 GOTO 610 

1300 REM **•**«"****»«♦***«**♦***♦ 

1310 A = F N A [15) 

1 320 IF A=1 THEN 1 51 

1330 E=A-5 

1340 I F E<0 THEN 1 440 

1 350 IF E = THEN E = 1 : GOTO 1370 

1360 PRINT "GOOD SNAP , PASS AND RUN" 

1370 PRINT "YOU'VE GAINED "E" YARDS" 

13 8 GOSUB 17 

1390 TG=TG-E:NU=ABS(NU+E) :D=D+1 
1 400 IF NU >1 00 THEN 1 800 
1410 IF TG<1 THEN 1280 
1 420 IF D > 3 THEN 1160 
1 430 GOTO 61 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1 450 PRINT "CAUSED YOU TO LOSE"ABS(E]"YA 
RD S " 

1460 TG=TG-E|NU=NU+E|D=D+1 

1 470 GOSUB 1 7 

1 480 I F D > 3 THEN 116 

1 490 GOTO 61 

1500 REM *♦******«***«♦***»*««.**» 
1510 PRINT "BAD SNAP . . .YOU ' VE" 
1520 PRINT "FUMBLED. ..AND" 

1530 PRINT "YOU'VE LOST POSSESSION . . „ •• 
1540 NU=1 OO-NU s D=0 s TG=1 s S L=NU 
1550 REM ******♦**«*««•**•*♦*«*** 

15 6 GOSUB 17 

1570 GOTO 460 

1580 REM ***********************,* 

1590 PRINT "NICE PUNT..." 

1600 PRINT "YOU'VE KICKED "E*4"YARDS" 

1610 NU=NU+E*4 

1 620 I F NU >1 00 THEN 1 650 

1630 PRINT " 



16 40 GOTO 46 

1 6 50 A = F N A ( 3 ) 

1 660 I F A > 1 THEN 17 40 

1670 PRINT "BUT YOU'VE MISSED THE GOAL I I 
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1680 IF NU-E*4<B0 THEN N U = A B S [ 1 - [ N U - E * 
4) ] : GOTO 1 700 
1690 NU=20 

D = : TG = 1 ! S L = N U 
GOSUB 140 
GOSUB 170 
GOTO 610 

PRINT » AND SCORED!" 

IF Z $ = B * THEN SB = SB + 3 : GOTO 1770 
SA=SA+3 
GOSUB 100 
GOSUB 170 
NU=35 : GOTO 330 
CIS 

FOR X=1 TO 5 

PRINT TAB(X*2} f" TOUCHDOWN! I I" 
NEXT X 

IF Z$=A$ THEN SA=SA+6 : GOTO 1B60 
SB=SB+6 



17 00 
1710 
17 20 
1730 
17 40 
1 7 50 
1760 
1770 
1 7 BO 
17 90 
1800 
1 81 
1820 
1 B30 
1 B40 
1850 
1860 
1870 
1880 
1890 



GOSUB 
PRINT 
GOSUB 
PRINT 
. ii 



1 00 
"TO 
1 7 



PLAY FOR EXTRA POINT" 



"THE BALL I S SNAPPED . . .PREPAR 



PRINT "YOU MISSED" |NU=2 



1 900 PRINT 
E TO KICK!" 
1 91 GOSUB 70 
1920 GOSUB 2200 
1930 IF E>9 THEN 

: GOTO 1970 

1 940 PRINT "YOU SCORED. . ."|NU = 35 
IF Z $ = A $ THEN SA = SA + 1 : GOTO 198 
SB = SB + 1 s GOTO 1980 
GOSUB 1 40 



1950 
196 
1 9 7 

19 8 
1990 
2000 
2010 

20 20 
2030 
2040 
2050 
2060 
207 



GOSUB 100 

GOSUB 170 

GOTO 330 

FOR X=1 TO 10 

PRINT TAB ( 2*X ] 

NEXT X 

GOSUB 100 

GOSUB 170 

GOTO 660 

FOR X=1 TO 10 



"PERIOD OVER" 
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2080 PRINT TAB ( 2*X] | "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 2 $ = B $ 

2120 GOSUB 170 

2130 N U = 3 5 : W = W + 2 : GOTO 330 

2140 FOR X = 1 T 10 

2150 PRINT TAB ( 2*X] ; "GAME OVER" 
2160 NEXT X 
2170 GOSUB 1 00 
21 BO END 

2190 REM ************************ 
2200 E=0 : X=1 

2210 I F Z » = A $ AND V C = 1 THEN PRINT "THIS 
ONE FOR " ; A$ : GOTO 2290 
2220 E= E + 1 : X = X-1 
2230 PRINT TAB [ E ) ; E 
2240 FOR Y = 1 TO X*1 . 5 

2250 I F I N K E Y $ <> " » THEN Y=X*1 .5+1 : RETURN 
2260 NEXT Y 

2270 IF E=1 1 THEN RETURN 

2280 GOTO 2220 

2290 FOR E = 1 TO FNA [ 7 ) +2 

2300 FOR J=1 TO 60 : NEXT J 

2310 PRINT TAB ( E ) • E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE I " 

2350 PRINT "YOU'VE BEEN SACKED I " 

2360 E = F N A ( 4 ) 

2370 IF E=3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

2390 TG=TG+5:D=D+1 :NU=NU-5 

2400 GOSUB 1 70 

2410 I F D > 3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION I " 
2440 D = : NU = ABS ( 1 00-NU + 5 ] : SL = NU : TG = 1 
2450 GOSUB 170 
2460 GOSUB 140 
2470 GOTO 610 




The 
Grand Slam 



In this sports simulation, you have a chance to play a three-set match 
of tennis against your computer. If you prefer, you can also play 
against another human being, with the simulation reporting on, and 
moderating, the action. 

Tennis got its start in England in the middle of the last century. 
By 1877 it was such a popular game that a national championship 
was staged at Wimbledon. There is a maximum of five sets in a match 
for men, and three for women. You have to win a maximum of six 
games to win a set You need to lead by two games in order to win a 
set 

The simulation calls on your decision-making skill and tests 
your reflexes. Your first decision concerns the speed of your serve. If 
you elect to play against the computer, it will always serve first, in 
order to allow you to see it in action. You'll learn a lot more about the 
simulation from watching the computer serve than from reading this 
introduction. 

The simulation is weighted so that fast serves have a better 
chance of an ace than do slow serves, but there is also a greater 
chance of a fault Slow serves will rarely result in an ace, but are also 
unlikely to be faults. 

After the serve, the simulation calls on your reflexes. The screen 
clears and indicates whose court the ball is in. After a brief pause, the 
computer will begin a countdown to - 1. To hit the ball, you need to 
wait until the count reaches zero, and then press any key. 
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If you "swing" too soon or too late, you'll miss the ball, and the 
computer will tell you whether the ball was in or out of play. Note that 
you can choose to leave a ball, if you think it is going to go out If you 
"hit" the ball by striking a key just as the count reaches zero, the 
screen will clear and show the ball in the other player's court This 
process continues until one player or the other misses the ball. 

The program begins by asking you whether there will be one hu- 
man player or two. If there is only one , it will ask for the player's name 
with the prompt NAME OF SECOND PLAYER?: 

ONE HUMAN PLAYER OR TWO? 1 
NAME OF SECOND PLAYER? TIM T Y 



This simulation needs names that are six letters long. If you enter a 
longer name, the computer will cut it down to size. The computer 
player's name, as you'll see in a moment, is "Bjornx". The match be- 
gins with Bjornx serving: 

BJORNX SERVING 

DO YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE... 



Bjornx elects a fast serve, and the mere human must attempt to 
return it: 



TIMOTY, THE BALL IS 
IN YOUR COURT 



HIT ANY K EY , WHEN YOU SEE THE ZERO, 
TO RETURN THE BALL. . . 
5 

4 

3 

2 

1 

YOU MISSED THE BALL, AND . . . 
IT WAS IN. ..BAD MISTAKE 
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Unfortunately, Timoty is not playing with his usual fine form. 
The score is shown before Bjornx serves again: 



B JORNX 
TIMOTY 



SET 


SET 


SET 




1 


2 


3 


GAME 











3 















BJORNX 
DO YOU 



SER VI NG 
WANT TO 



SERVE 
OR 



- FAST 

- SLOW 



> IT'S A FAST SERVE . 



The scoring system in our simulation follows the real game, 
with a minimum of four points needed to win a game: 15, 30, 40. and 
game. If both sides score 40, "deuce" is declared, and the first player 
to score a point is said to have the "advantage." A further point is 
needed to win. If the opponent gets a point instead of the player with 
the "advantage," the score returns to "deuce." Of course, you do not 
have to worry about this scoring system, as the computer obligingly 
keeps track of everything for you. 

Here are a few more "snapshots" of the game in progress: 



GAME TO BJORNX 





SET 


SET 


SET 






1 


2 


3 


GAME 


BJORNX 


1 











TIMOTY 















TIMOTY SERVING 

D YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 



1 > IT'S A FAST SERVE . 
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....OUT..,. 
. . . SECOND SERVE. . . 
TIMOTY SERVI NG 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

2 > IT'S A SLOW SERVE . 





SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 


6 











TIMOTY 


1 








4 



TIMOTY SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

2 > IT'S A SLOW SERVE. 



SET SET SET 





1 


2 


3 


GAME 


B J OR NX 


6 








1 5 


TIMOTY 


1 


1 









B JORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 



1 > IT'S A FAST SERVE . 



It appears that the human race is no match for the mighty com- 
puter: 





SET 


SET 


SET 






1 


2 


3 


GAME 


B J R NX 


B 


4 





3 


TIHOTY 


1 


2 


D 


40 



TIMOTY SERVING 

D YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 



2 


> IT'S 


A 


SLOW 


SERVE. 




SET 


SET 


S ET 






1 


2 


3 


GAME 


B J OR NX 


6 


,4 





{DEUCE 


TIMOTY 


1 


2 





{DEUCE 




SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 


6 


6 


6 





TIMOTY 


1 


4 


4 
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is!© 

Listing 



When you're ready to take on Bjornx for a set or two, enter and run 
the following listing: 

10 REM TENNIS 
SO CLS 

30 RANDOMIZE V A L [ R I G H T $ ( T I M E $ , 2 ) ) 

40 AA=0 : BB=0 : T=0 : K A=0 

50 XA=0 s YA=0 s ZA=0 

60 XB = : YB = s ZB = 

70 DEF FNA(X)=INT(RND(1 J * X J + 1 

80 INPUT "ONE HUMAN PLAYER OR TWO" 5 A 

90 IF A < 1 OR A > 2 THEN 80 

100 IF A=1 THEN A$=" BJORNX" ; VC=1 

110 IF VC=1 THEN 160 

1 20 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E " 

130 INPUT "NAME OF FIRST PLAYER" ;A$ 

140 IF L E N ( A t. ] < 6 THEN A$ = A$ + " " I GOTO 140 

150 A $=LEFT $ ( A$ , 6 ] 

160 INPUT "NAME OF SECOND PLAYER" ;B$ 
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1 70 



IF LEN [ B f ] <8 THEN B $ = B $ + " " : GOTO 170 



180 B $ = LEFT » [ B $ , 6 ) 

1 90 S = 1 i AA = 1 i B B = 1 

200 CLS 

210 P$=A$:R$=B$ 

220 REM ****************************** 

230 IF P$=A$ THEN R$=B$ 

240 IF P$ = B $ THEN R$ = A$ 

250 PRINT P $ j " SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 



270 PRINT 



OR 2 - SLOW 



280 IF 
: GOSUB 
2 90 I F 
: GOSUB 
300 K $ 



VC = 1 
330 
VC = 1 
330 



AND SC=0 THEN KB=1 



AND SC=1 THEN KB=2 



31 
320 
330 
S A 
340 
3 50 
360 
370 
380 
3 90 
400 
41 
420 
430 
440 
450 

46 

47 
480 
490 
500 
51 
520 
530 
5 40 



P $ =A $ AND 
1720 ! GOTO 
P$=A$ AND 
1 720 ! GOTO 

I NK EY $ 

I F K $ < " 1 " OR 

K B = V A L ( K $ ) 

PRINTiPRINT TAB[6] ;KB;TAB[10] |"> 

ii , 



K $ > " 2 " THEN 300 



I T 



IF K B = 


1 THEN 


PRI 


NT "FAST" j 


IF KB = 


2 THEN 


PRI 


NT "SLOW"; 


PRINT 


" S E R V 


F 

* B B 


ii 


GOSUB 


1 720 






I F KB = 


1 THEN 


EB = 


FNA ( 3 ) s GOTO 


E B = F N A 


(B] 






I F E B = 


1 THEN 


450 




I F EB = 


3 AND 


sc = o 


THEN 520 


IF EB = 


3 AND 


SC = 1 


THEN 590 



400 



GOTO 670 

REM ****************************** 
CLS : PRI NT 

PRINT TAB ( B ] j "... .ACE " 

GOSUB 17 20 
SC = 

IF P$=A$ THEN 1 1 40 
GOTO 1150 

REM ****************************** 
CLS.PRINT 

PRINT TAB t 12)?"... .OUT 

PRINT TAB(B];"... SECOND SERVE ... " 



550 GOSUB 17 20 

560 SC=1 

570 GOTO 230 

580 REM ****************************** 

590 C LS : PR I NT 

600 PRINT TAB(12];"....0UT...." 

610 PRINT TAB( 9) ; " . . . .DOUBLE FAULT..." 

620 GOSUB 1 7 20 

6 30 SC=0 

640 IF P$=A$ THEN 1150 

650 GOTO 1140 

660 REM ****************************** 

670 SC=0 

680 CLS : PRI NT 

6 90 IF INKEY$<>"" THEN 6 90 

7 PRINT R $ ; " , THE BALL IS" iPRINT "IN Y 
OUR COURT" 

710 PRINT " » 

7 20 I F R $ = A $ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO , TO RETURN THE BALL..." 

740 IF INKEY$<>"" THEN 740 

7 50 X = 4 * F N A ( 3 ) : Y = X 

7 6 GOSUB 17 20 
770 E=5 

780 PRINT TAB ( 2* t 1 1 -E ] ) 5 E 

790 Y=Y-1 

8 00 S $ = I NK EY $ 

810 IF S $ <> " " AND E = THEN 890 

820 I F S $ <> " " THEN 990 

830 I F Y > THEN 790 

B40 E = E-1 i Y = X 

8 50 I F E < - 1 THEN 990 

860 I F E=-1 AND R$ = A$ AND V C = 1 THEN 8 90 

870 GOTO 780 

880 IF K B = 1 THEN EA = FNA( 2 ) : GOTO 10 

890 E A = F N A { 4] 

900 I F E = AND R $ = A $ AND VC=1 THEN E A = F N 
A [ 8 ] 

91 I F EA = 1 THEN 940 

920 IF R$ = A$ THEN R $ = B $ : GOTO 670 

930 R $ = A $ i GOTO 670 

940 PRINT R $ ; " , YOU'VE HIT THE BALL" 

950 PRINT TAB ( 8 J ; "OUT OF PLAY . . . " 
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S60 60SUB 1720 

970 IF R$=A$ THEN R$=B$:G0T0 1150 

980 GOTO 1140 

990 EA = F N A ( 4 ) 

1000 IF EA=1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND... 
1020 GOSUB 1720 

1 30 PRINT " IT WAS I N ... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF R$=A$ THEN R$=B$:GOTO 1150 
1 OBO GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND » 

1 OBO GOSUB 1720 

10 90 PRINT » IT WAS OUT . .WELL LEFT" 
1100 GOSUB 1 720 

1110 IF R$=A$ THEN R$=B$ : GOTO 1140 
1 1 20 GOTO 1150 

1130 REM ****************************** 
1 1 40 A A = A A + 1 s GOTO 1160 
1150 B B = B B + 1 

1160 IF AA <5 AND B B < 5 THEN 1230 

1170 IF ( B B > 4 AND AA<4) OR ( B B > 4 AND BB 

AA >1 ] THEN AA = 1 s BB = 1 s GOTO 1500 

11B0 IF ( AA >4 AND BB <4 ) OR ( AA >4 AND AA 

BB>1) THEN AA=1 s BB=1 i GOTO 1440 

1190 I F AA >4 AND A A > B B THEN C$ = "ADV":D$ 

ii "sGOTO 1320 

1 200 IF BB >4 AND BB >A A THEN D$="ADV":C9 
" "sGOTO 1320 

1210 C$ = " {DEUCE " S D$ = " {DEUCE "sGOTO 1320 
1220 REM ****************************** 

1230 RESTORE 

1240 FOR 0=1 TO AA 

1 25 READ C $ 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=1 TO BB 

1 290 READ D $ 

1300 NEXT D 

1310 REM ****************************** 

1 320 C LS 

1330 PRINT " » 

1340 PRINT " SET SET SET" 



1350 PRINT » 
1360 PRINT " 



it 

1 2 3 GAME" 



1 370 PRINT A * } " " S XA f « " | Y A ; " " ; Z A j " 

" . C $ 

1 380 PRINT B $ ; " " ; X B 5 " " 5 Y B | " » ; Z B f " 

" I D $ 

1390 PRINT " n 

1400 GOSUB 1720 

1410 I F T <>1 THEN 230 

1420 END 

14 3 REM ft***************************** 
1440 CLS 

1450 PRINT "GAME TO " ; A $ 
1 460 GOSUB 1720 

1 470 IF S = 1 THEN X A =X A + 1 s C $ = " " s D $ = » " ! G 
OTO 1560 

1480 IF S=2 THEN YA=YA+l!C$=" 0":D$="0"sG 
OTO 1580 

1490 I F S=3 THEN ZA=ZA+1 iC$= n O":D$="0":G 
OTO 160 
1500 CLS 

1510 PRINT "GAME TO " ; B * 
1520 GOSUB 1720 

1530 IF 8=1 THEN XB=XB+1 :C$="0"5D$="0"«G 
OTO 1560 

1 540 IF 8 = 2 THEN YB=YB + 1 s C $ = " " 5 D $ = " " ! G 
OTO 1580 

1550 IF S=3 THEN ZB=ZB+1sC$="0" :D$=" 0":G 
OTO 1600 

1 560 IF (XA>5 AND XB<5] OR (XA<5 AND XB > 
5 ) THEN 1630 

1 570 IF [XA>5 AND XA-XB >1 ) OR (XB >5 AND 
XB-XA >1) THEN 1630 

1580 IF [YA>5 AND YB<5) OR (YA<5 AND YB> 
5 ] THEN 1630 

1 590 IF ( Y A > 5 AND YA-YB <1 ) OR ( YB >5 AND 
YB-YA >1 ) THEN 1630 

1 6 00 IF [ ZA >5 AND ZB <5 ] OR [ZA<5 AND ZB> 
5 ) THEN 1 680 

1610 IF [ZA>5 AND ZA-ZB>1) OR (ZB>5 AND 
ZB-ZA >1 ] THEN 1680 
1620 GOTO 1640 
1630 S=S+1 



1 040 
16 50 



AA=1 : BB=1 

IF P$ = A$ .THEN R $=A* : P$=B $ s GOTO 1320 



1660 P $=A$ s R $=B $t GOTO , 1 320 

1670 REM ****************************** 

16B0 T=1 

1680 GOTO 1320 

1700 REM ****************************** 

1710 REM DELAY 

1 720 FOR M = 1 TO 1 00 : N EXT M 

1730 RETURN 

1 740 DATA "0 " , "1 5" , "30 " , "40 " 
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Now you have the chance to drive a simulated racing car around your 
choice of four of the world's greatest Grand Prix circuits. You, too, 
can be a hero on the British course known as "The Whale," at Ger- 
many's "The Key," on the Italian track called "The Shoe," or on the 
3100-meter track at Monaco. 

The program begins by asking your name, wishing you luck, and 
asking you which track you wish to try and how many laps the race 
will be over: 



WHAT IS YOUR NAME, DRIVER? HARTNELL 

OK , GOOD LUCK , HARTNELL 

OK , GOOD LUCK , HARTNELL 

OK , GOOD LUCK, HARTNELL 
****»»•******»*»***«»»***»****»***»»« 

WHICH RACE 00 YOU WANT TO TAKE PART IN 



BRITISH 
GERMAN 
ITALIAN 
MONACO 



GRAND 
GRAND 
GR A NO 
GRAND 



PRIX 
PRIX 
PRIX 
PRIX 



2 6 5 M T 

1 7 M T 

2 2 M T 

3 1 D M T 



ENTER A NUMBER (1 TO 4] 
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OK, THE BRITISH RACE 
************************************* 

OVER HOW MANY LAPS? 
? 1 



The aim of the simulation, naturally enough, is to complete the 
race as quickly as possible, without crashing and without overheat- 
ing either your engine or your brakes. The race begins as follows: 

You start the race, as the fifth line down indicates, in the sixth 
position. On the British circuit, you start the simulation at 140 ki- 
lometers an hour, just under the speed recommended for the ap- 
proaching corner. To increase your speed, you hit the "M" key. The 
"Z" key will slow you down, and the space bar allows you to maintain 
the same speed. 

A few seconds after the above "snapshot" of the simulation, the 
screen looked like this: 



ENGINE TEMPERATURE 


100 C . (MAX 


. 2 ] 


BRAKE TEMPERATURES 


10 C . (MAX. 


500 ) 


DISTANCE COVERED s 


METERS 






LAPS 




YOU'RE IN POSITION 


6 




CURRENT SPEED s 


140 KPH 






7 7.7 METERS 


PER MOVE 


CORNER APPROACHING 


800 METERS 




RECOMMENDED SPEED : 


15 KPH 





The simulation run began with the first corner 800 meters away. 
This has now shrunk to just 57 meters, and I've increased my speed 
to 148 kph.just below the recommended speed for taking that corner 
of 150 kph. The engine has warmed up slightly, but still a long, long 
way away from the maximum of 200 C, and the temperature of the 
brakes has gone up from 10 degrees to nearly 55. 

ENGINE TEMPERATURE 104.6 C . (MAX. 200) 
BRAKE TEMPERATURE: 54.7 C . (MAX. 500] 
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D I STANCE COVER ED : 


7 42 


.2 METERS 




. 2 8 


LAPS 


YOU'RE IN POSITION 


6 




CURRENT SPEED; 


1 48 


KPH 




8 2 . 


2 METERS PER MOVE 


CORNER APPROACHING 


5 7 


METERS 


RECOMMENDED SPEED: 


1 5 


KPH 



I safely negotiate that corner, but find that I have perhaps been 
a bit too cautious: with just under half of the one-lap race completed 
I have fallen back to the seventh position after starting in position six: 



ENGINE TEMPERATUR E 


8 7.1 C . (MAX. 


2 ] 


BRAKE TEMPERATURE: 


157.3 C . [ MAX . 


50 ) 


DISTANCE COVERED s 


110 2 METERS 






.41 LAPS 




YOU'RE I N POSITION 


7 




CURRENT SPEED : 


112.3 KPH 






62.3 METERS PER 


MOVE 


CORNER APPROACHI NG 


97 METERS 




RECOMMENDED SPEED : 


90 KPH 





I am just 97 meters from the next corner, where the recom- 
mended cornering speed is 90 kph. I'm doing just over 112 kph. Fran- 
tically, I slam on the brakes, punching at the "Z" key. But it is too late: 

YOU CORNERED AT 104.8 KPH 

AND THE MAXIMUM SPEED WAS JUST 90 

YOU SPIN OFF THE TRACK... 

AND CRASH I ! M I 



YOU ONLY COMPLETED 121 B. 4 METERS, 
OR .45 LAPS AND AT THAT 
STAGE WERE I N POSITION 7 
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YOUR AVERAGE SPEED WAS 137.07 KPH 
YOU WERE 2 TH FASTEST ON STRAIGHTS, 
AND 12 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 1 N 1 FOR NEW 
RACE, ' E ' TO END 



I was in seventh place when my race ended. The final screen tells 
me my average speed was a shade over 137 kph, I was second fastest 
on the straights, and only twelfth fastest on the corners. 

As you can see, you are given the choice of running the same 
race again (by pressing "S"), choosing a new race ("N"), or ending the 
simulation ("E"). 

I press "N" and decide on the German circuit: 

***************************** * * ****** 
WHICH RACE DO YOU WANT TO TAKE PART IN: 



B 


R I T I 


S H 


GR 


A 


ND 


PR I 


X 


2 


6 


5 


0M 


T 


: 1 


G 


ER M A 


N 


GR 


A 


N D 


P R I 


X 


1 


7 





M 


T 


: 2 


I 


TALI 


A N 


GR 


A 


ND 


P R I 


X 


2 


2 





M 


T 


: 3 


M 


ON A C 





GR 


A 


N D 


P R I 


X 


3 


1 





M 


T 


: 4 



ENTER 


A NUMBER 




( 1 


T 





4) 


*********** 


********* 


* 


* * 


* * 


* * 


********** 


OK , 


THE GERMA 


N 


R 


A C 


E 




*********** 


********* 


* 


« « 


* * 


* * 


*««*«*»*** 



OVER HOW MANY LAPS? 
? 1 



This time, I take fewer risks, and am soon on my way to com- 
pleting the circuit without mishap: 



ENGINE TEMPERATURE 117.5 C . (MAX. 2 0) 

BRAKE TEMPERATURE: 34.5 C. (MAX. 500) 

DISTANCE COVERED: 1424.3 METERS 

: .83 LAPS 

YOU'RE IN POSITION 27 
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CURRENT SPEED s 



116.3 KPH 

64.6 METERS PER MOVE 



CORNER APPROACHING 75 METERS 
RECOMMENDED SPEED ; 20 KPH 

A few careful moments later, and I've done it: 

WELL DONE, HARTNELLI I 

YOU MANAGED TO LAST OUT THE FULL 
1 LAP RACE . . . 



The main value of this simulation, apart from that of its high en- 
tertainment potential, is showing how the facts of "real life" (such as 
the engine speed maximum, and the data on each track) can be en- 
coded into a program. You can also see how the formulas link the var- 
ious outputs together in a realistic way— for example, how lines 370 
and 380 work out how far you have traveled, by converting your speed 
in kilometers per hour into meters. 

Note also that lines 320 and 330, which act on your attempts to 
speed up or slow down, add or subtract a value that is related to the 
actual speed you are traveling. This means you can brake more dra- 
matically when you are moving quickly than you can while moving 
slowly. Using a value that is related to current speed also overcomes 
the realism-destroying practice of just changing the current speed by 
a fixed value each time a key is pressed. 

YOU FINISHED IN 30 POSITION, 
AFTER STARTING IN 6TH POSITION... 
YOUR AVERAGE SPEED WAS 100. 3B KPH 
YOU WERE 14 TH FASTEST ON STRAIGHTS, 
AND 47 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 1 N 1 FOR NEW 
RACE, 'E' TO END 
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The Tracks 

Here are the four Grand Prix circuits that are encoded within the 
program. 



British Grand Prix 

"The Whale," 2650 meters: 
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Italian Grand Prix 

"The Shoe," 2200 meters: 




Monaco Grand Prix 
3100 meters: 




Numbers not followed by "m" indicate maximum cornering speeds. 
Numbers followed by "m" (for meters) indicate distances between corners. 
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H 



Take a firm grip on the wheel, and tackle the GRAND PRIX circuits 
with this listing: 



1 D 

2 D 

3 
40 

5 

6 

7 

8 
90 

1 00 
1 1 
1 2 
130 
1 40 



REM GRAND PRIX 

60SUB 2200 : R EM INITIALIZE 

GOSUB 1 1 90 ! R EM CHOOSE TRACK 

REM MAJOR LOOP 

REM PRINTOUT 

ACCELFRATI ON/CHECK 
ENGI NE/BRAKES 
CORNER/POSITI ON 



GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOTO 
REM 



1 20 
280 
450 
500 
SO 



REM 
R EM 
REM 



PRINTOUT 



REM 
C LS 

PRINT "ENGINE TEMPERATURE "INT( ENG*1 

]/10"C. (MAX. 200]" 

150 PRINT "BRAKE TEMPERATURE; "INT(BRAK*1 

}/1 "C . [MAX. 500 J" 

160 PRINT " DISTANCE COVERED i " I N T ( D I S T * 1 
0]/10 "METERS" 



146 



170 PRINT " !"INT(DIST*1 
00/RR)/100"LAPS» 

180 PRINT "YOU'RE I N POSITION "I NT {FP] 
190 PRINT " 



200 PRINT » CURRENT SPEED : "INT( SPEED* 

1 J / 1 " K P H " 

2 10 PRINT " .if INTtSPEED* 
5. 5551/10 " METERS PER MOVE" 

220 PRINT " 



230 PRINT "CORNER APPROACHING" INT(APP]"M 
ETERS" 

240 PRINT "RECOMMENDED SPEED: "C(C]"KPH" 

250 PRINT " 

I! 

260 RETURN 

270 REM ************************* 

280 REM CHECK ACCELERATION AND FACTORS 

2 90 X$ = INKEY$:IF X$<>"Z" AND X $ <> " M " AND 
X $ <> " » THEN 290 

3 PRINT T A B ( 1 2 ] ; "OK" 
310 X=0 

320 IF X $ = " M " THEN X = SP EED/1 5 
330 I F X $ = " Z " THEN X = -8PEED/1 5 
340 NUM=NUM+1 : REM NUMBER OF MOVES 
350 SPEED=SPEED+X 
360 IF SPEED <0 THEN SPEED = 
370 TRAV=SPEED* . 5555 : REM D I STANCE 

TRAVELLED 

38 D I ST = D I ST + TRA V : R EM TOTAL DISTANCE 

TRAVELLED 

3 90 ENG = ENG+ (X/2 ] + . 07 : I F ENG<70 THEN EN G 

= 70 + RND ( 1 ] *B : R EM ENGINE TEMP 

400 IF X >0 THEN BRAK=BRAK* . 9 : R EM BRAKE 

TEMP FALLI N G ; ACCELERATING 
410 IF X <1 THEN BRAK=BRAK-(3*X)-RND(1 ] *3 
5REM BRAKE TEMP INCREASING; BRAKING 
420 IF BRAK <8 THEN BRAK = B + RND(1J*8 
430 RETURN 

440 REM ************************* 

450 REM CHECK ENGINE/BRAKE TEMP 

460 IF ENG>200 THEN PRINT "YOUR ENGINE H 

AS OVERHEATED" s GOTO 830 
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470 IF BRAK >500 THEN PRINT "YOUR BRAKES 
HAVE OVERHEATED" s GOTO B30 
480 RETURN 

490 REM ************************* 
500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
510 APP=APP-TRAV 

5 20 I F APP >0 THEN RETURN 
530 CRASH=0 

540 IF SPEED >( C ( C ) *1 .125) THEN CRASHMsG 
OTO 690 

550 IF SPEED > ( C ( C ) *1 .1 ] THEN GOTO 690 
560 PNT = PNT + 100-( [ C [ C ] * 1 .1 J-SPEED) sREM C 
ORNERING POI NTS 

570 NC=NC+1 (REM NUMBER OF CORNERS 
5B0 CP=96-( PNT/NC ] : REM CORNERING 

POSITION 

590 A M = A M + A ( C ] : R EM AVERAGE NUMBER 

OF .MOVES ALLOWED 
600 RP=NUM-AM : REM RACING POSITION! YOUR 

MOVES MINUS AVERAGE MOVES 
610 FP=(CP+RP)/2:REM FIELD POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 

6 20 I F FP <1 THEN FP = 1 
630 C=C+1 

640 I F C = WW THEN C = 1 : R EM LAP OVER 
650 APP=APP+D{C) 

660 IF LAP*QQ = AM THEN 91 : R EM RACE OVER 
670 RETURN 

680 REM ************************* 
690 REM CRASHED 

7 C LS 

710 PRINT "YOU CORNERED AT" INT[10*SPEED] 
/ 1 " K P H " 

7 20 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T " C ( C ] 

730 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRACK... 

750 GOSUB 2330 

760 IF CR AS H = 1 THEN 830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE T REJOIN THE RACE" 

780 NUM=NUM+10:SPEED=INT[2*C{C)/3) 
7 90 PNT = PNT + 5 
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800 GOSUB 2330 

810 GOTO 570 

820 REM ************************* 

830 PRINT " AND CRASH! I I I I 11 

8 40 PRINT " . 



850 PRINT "YOU ONLY COMPLETED "INT(1 0*DIS 
T J/1 "M ETERS , " 

860 PRINT "0R"INT(DIST*1 OO/RRJ/1 00 "LAPS 
AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION" INT{FP) 
880 PRINT " 



890 GOTO 1050 

900 REM ************************* 

91 REM RACE OVER 

920 CLS 

930 EF LA G = 1 

940 FOR X=1 TO 20 

950 PRINT TAB(X) ; " W E L L DONE, " ; A $ ; " I I " 

860 PRINT TAB(21-X]|"WELL DONE, " j A $ ; " I I 
ii 

970 NEXT X 

980 PRINT " 



990 PRINT "YOU MANAGED T LAST OUT THE F 
ULL "LAP" LAP RACE..." 
1000 PRINT " 



1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION "INT 
[FP ) 

1030 PRINT "AFTER STARTING I N 6TH POSITI 
ON ... " 

1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS"INT{D 

I ST*1 80/NUM ] /1 00 "KPH " 

1 060 GOSUB 2330 

1 7 IF RP <1 THEN RP = 1 

1 080 I F CP <1 THEN CP = 1 

1090 PRINT "YOU WERE"INT(ABS(RP]]"TH FAS 
TEST ON STRAIGHTS," 

1100 PRINT "AND"INT(ABS(CPJ J "TH FASTEST 
ON CORNERS . " 
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1110 
E, ' 
112 
D I $ 
1130 
1140 
1150 

116 
GOTO 

117 
6 

118 
1190 
1200 
$ 

1210 
1220 
1230 



PRINTzPRINT "PRESS • S ' FOR SAME R AC 
N < FOR NEW RACE , ' E ' T END" 

I$ = INKEY$ 5 IF I $ < > " S " AND I $ < > " N " AN 
<> " E " THEN 112 

I F I $ = " E " THEN END 

60SUB 2240 

RESTORE 

I F I $ = " S " THEN 
6 

I F I $ = " N " THEN 



GOSUB 1 490 : LAP = L2AP g 
CLS s GOSUB 1 250 I GOTO 



f| j= M ************************* 

REM NAME AND TRACK DATA 

INPUT "WHAT I S YOUR NAME, DRIVER" ; A 



PRINT 
FOR X: 
PRINT 



1 T 3 

TAB [ 4*X) | " OK , GOOD LUCK , "|A$ 



1240 GOSUB 


2 3 3 


: N EXT X 






1250 PRINT 


ti * * * 


* * * 
















1 260 PRINT 


"WH I 


CH 


RACE DO 


YOU WANT TO 


T A 


K E PART INs 


ii 










1 27 PRINT 












12B0 PRINT 


TAB ( 


7 ) ; 


"BRITISH 


GRAND PRIX 


2 


6 50MT : 1 " 












1290 PRINT 


TAB [ 


7 ] | 


"GERMAN 


GRAND PRIX 


1 


7 M T s 2 " 












13 PRINT 


TAB ( 


7) | 


"ITALIAN 


GRAND PRIX 


2 


200MT S3" 












1310 PRINT 


TAB ( 


7] S 


"MONACO 


GRAND PR IX 


3 


1 OOMT : 4 " 












1 320 PRINT 












13 3 PRINT 


TAB ( 


7 3 5 


"ENTER A 


NUMBER (1 


TO 


4) " 












1 340 K $ = I NK EY $ 










1 35 IF K$ < 


1! <| 11 


OR 


K $ > " 4 " THEN 1340 




1 36 G P = V A L 


[K$] 










1370 PRINT 


it * # * 


* « * 


********************** 














13 8 PRINT 


TAB ( 


8] ! 


"OK, THE 


ii . 




1 3 9 I F GP = 


1 TH 


EN 


PRINT "BRITISH" f 




1 40 IF GP= 


2 TH 


EN 


PRINT "GERMAN" | 





1 41 
1420 
1 430 

1440 
* * * * * 

1 450 
1 460 
1 47 
148 
1490 
15 
1510 
1520 

1530 
1 540 
0,250 
1550 
1560 

1570 
1 580 
5 

15 90 
1600 

1610 
1620 
1630 

16 40 
16 5 

16 6 
1670 
1680 
1690 

17 
1710 
1720 
1730 
1 740 
1750 
1760 
1770 
1780 



IF GP=3 THEN PRINT "ITALIAN" ; 
IF GP=4 THEN PRINT "MONACO" ; 
PRINT " RACE" 

PRINT "**#**#********************** 
* * * * ii 

PRI NT : PRI NT "OVER HOW MANY LAPS? " 
INPUT LAP : I F LAP <1 THEN 1460 
LAP = I NT f LAP+ . 5 ] : L2AP = LAP 

REM #*********************** 

REM BRITISH DATA 
SP EED=1 40 
FOR X = 1 TO 9 

READ D [ X ) : R EM DISTANCE BETWEEN 

CORNERS 

NEXT X 

DATA 800,400,250,200,250,300,100,10 
FOR X = 1 TO 9 

READ C ( X ) : R EM RECOMMENDED 

MAXIMUM CORNERING SPEED 

NEXT X 

DATA 150,90,175,200,200,90,90,150,1 
FOR X=1 TO 9 

READ A ( X ) : R EM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
NEXT X 

DATA 8,4,2,2,2,2,1,1,2 

APP=800sWW=10sQQ=24sRR=2650 

I F GP = 1 THEN RETURN 

REM a*********************** 

R EM GERMAN DATA 

SPEED=85 

FOR X = 1 TO 7 

READ D ( X ] 

NEXT X 

DATA 600,200,100,150,250,200,200 
FOR X=1 TO 7 
READ C(X) 
NEXT X 

DATA 90,175,120,90,200,200,175 
FOR X=1 TO 7 
READ A(X) 
NEXT X 
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1 7 9 DATA 6,2,1 ,2,2,2,2 

1800 APP=6 s WW=8 s QQ=1 7 ! RR=1 700 

1810 IF GP=2 THEN RETURN 

1820 REM ************************ 

1830 REM ITALIAN DATA 

1 840 SPEED=1 08 

1850 FOR X=1 TO 7 

1860 READ D{X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X=1 TO 7 

1 900 READ C (X ) 

1 91 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X=1 TO 7 

1940 READ A[X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APP=800:WW=8:QQ=22iRR=2200 

1980 IF GP=3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SPEED=162„5 

2020 FOR X=1 TO 14 

2030 READ D (X ) 

2040 NEXT X 

2050 DATA 4 0,100,100,300,400,300,150,20 
0,200,200 

2060 DATA 15 0,150,200,250 

2070 FOR X=1 TO 14 

2080 READ C[X) 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,17 5,150 

2110 DATA 150,175,120,150 

2120 FOR X=1 TO 14 

2130 READ A [ X ) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

216 DATA 1,2,2,2 

2170 APP=400 ! WW=1 5 s QQ=30 s RR=31 00 

21 80 RETURN 

2190 REM ************************* 

2200 REM INITIALIZATION 



2 21 CLS 

2220 RANDOMIZE VAL(RIGHT${TIME$,2]] 

2230 DIM A(14),C(14] ,D[14] 

2240 C = 1 s F P = 6 ! P NT = s NC = s CP = 

2250 AM=0 s RP=0 s APP=0 

2260 NUM=0 : REM NUMBER OF MOVES 

2270 ENG=100iBRAK=10:TRAV=0sDIST=0 

2 28 E F L A G = 

2290 X=0 

2300 RETURN 

2310 REM ************************* 

2320 REM DELAY 

2330 FOR = 1 TO 1 : NEXT 

2340 RETURN 
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Up, Up 
taw 



Flight simulators are probably the most entertaining type of simu- 
lation programs. Most of us will never learn to fly, but would some- 
how like to enjoy the experience. A flight simulation program gives 
you a chance to find out a little of how it feels to fly without ever leav- 
ing the ground. 

The main challenge facing a pilot is to keep on top of a number 
of different elements that are changing all at once. Ignore any one of 
them—like the angle at which the plane is flying, or the amount of 
fuel you have left— for too long, and your plane may well drop out of 
the sky. Although this program does not occur in real time, so you'll 
have a chance to think about the choices facing you before you act, 
you'll still find it a fairly challenging and frustrating simulation to 
master. 

Even getting the plane off the ground is not particularly easy the 
first few times you run the program. Get it in the air, and you'll have 
to fight every second to keep it there. 

And once you try to land . . . 

Crashing during a landing attempt is a trifle inconvenient in a 
real plane. The moment you try and land 150 feet above the ground, 
you'll give thanks that you are only flying your computer. 

Mastering the Controls 

This simulation is the most complex in the book. It will take you 
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a little longer to learn than the others. This longer learning time will, 
however, be amply repaid as you're sure to find this program by far 
the most satisfying to run. FLIGHT SIMULATION contains another 
bonus that makes it very worthwhile to run. Your flight is automati- 
cally recorded, so that at any moment, while you're still in the air, you 
can tell the computer you want to see the whole of the current flight 
over from the beginning. It is very entertaining to watch your flight 
quickly unfolding again. The controls are handed back to you once 
you reach the point in the original flight where you asked the com- 
puter for a replay. 

Think of the flight as having three parts, each of which requires 
a different approach to the controls. Part one is the takeoff, part two 
is the actual flight, and part three is the landing. You'll become an ace 
pilot fairly quickly if you concentrate on mastering each flight sec- 
tion in turn. 

Whatever you do, don't give up, even after your twentieth at- 
tempt at landing has ended in disaster. The satisfaction you'll feel 
when you make your first perfect landing will more than compensate 
for all the frustration you've encountered in the learning process. 

This is what you'll see when you first run the program: 



HORIZON 

I 


HEADING 

. N . : 
. . P . . : 


j *•••*••••*»••* 


W--X--E s 
. S . s 


1 RANGE i TIME .1 


: 226 


:AIRSPEED : 

: > 

:ALTIMETER: 
: > 

.■FUEL : 7 5 


D E G . 


: ELEVATION: : 

: > UNDERCARRIAGE DOWN < : 



The line of asterisks in the top left corner shows the horizon 
line. This can tilt rather alarmingly from side to side as you turn the 
plane, or go to the bottom of the "windshield" as you climb, or to the 
top as you descend. It may take a short while in order for you to be 
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able to see this line as the horizon, but once you do, you'll find it con- 
veys a much better impression of being in the air than you might 
imagine. 

To the right of the horizon is your compass. The "@" shows the 
direction your plane is heading. You always start a flight facing due 
north, and must take off more or less in this direction. Your exact 
heading is shown further down the instrument cluster, on the same 
line as ALTIMETER, where you'll see "0 DEC". 

The line of readings underneath the horizon and compass 
shows the distance you've covered so far (the "range"), the elapsed 
time of the flight, and the direction in which you must be flying in 
order to land — assuming that you get this baby up in the air, and keep 
it there for more than a few seconds ! You need to be within 12 degrees 
of this heading for a successful landing. The required heading 
changes from run to run, but does not change during a flight 

Shown underneath this is your airspeed, height above the 
ground (altimeter), and remaining fuel. The line of dashes ending in 
a "greater than" sign ( — >) indicates the magnitude of each of these 
readings. That is, the line gets longer as you go faster or climb higher. 

The elevation is the angle of your plane relative to the ground. 
When you enter a command, by touching a single key, a full-word ver- 
sion of the command appears in the position currently occupied by 
the series of dashes you can see after the elevation angle in the sam- 
ple run above. Finally, you are told whether or not your undercarriage 
is down. 

After a few inputs, the screen looks like this: 



HORIZON 




HEADING 






: . N . s 






: . . 9 . . : 




* * * * • 


: r; — x — E : 






: . S . : 


: RANGE .6 : 


TIME 


1.3 ! 226 


sAIRSPEED s 


3 , 




: - > 






: A LTI H ET ER i 





EG . 


i > 






[FUEL s 


S92 











! i 

I ELEVATI ON t 20 i NOSE UP 

I > UNDERCARRIAGE DOWN < : 
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Your fuel has gone down slightly, your airspeed is up to 30. and 
the nose of the plane is pointed 20 degrees into the air. You can see, 
from the line down near the bottom right-hand corner of the screen, 
that NOSE UP is the full equivalent of the most recent command you 
entered. 

A little later, and we are in the air: 

HORIZON HEAOING 



. N . 
. . 9 . . 

W — X — E 



. S . 



RANGE 1 : 


TIME 2 


! 2 3 6 


AIRSPEED 


S 1 




— > 






ALTIMETER 


66 


35 9 D EG . 


-- > 






FUEL 


660 











ELEVATIONS 19 s THROTTLE ON 
> UNDERCARRIAGE DOWN < : 



You need an airspeed of between 45 and 60, and an elevation 
greater than 10, in order to get off the ground. Let's try turning: 



HORI ZON 




HEADING 

. N . 

. • I . . 


* * « « 




W--X--E 




• • * • * 


. S . 


RANGE 1 .2 


: TIME 


2.3 ': 226 


AIRSPEED i 


40 




-- > 






ALTIMETER: 


1 43 


3 44 D EG . 


FUEL : 


6 48 





ELEVATION: 15 : BANK LEFT 
> UNDERCARRIAGE UP < 



157 



Note that the undercarriage is now up (which saves on fuel by 
decreasing drag on the plane) and the "horizon" is now sloping to 
down to the right, as the plane banks left It is now heading at 344 
degrees, and the @ symbol on the compass has moved to show the 
approximate direction in which the plane is flying. 

HORIZON HEADING 



. N . 
. . 9 . . 



» • • l W--X--E 



! I .S. ! 



RANGE 3.1 


: TIME 3.7 : 226 


AIRSPEED : 


S 9 


-- > 




ALTIMETER : 


3 5 3 3 D EG . 




- > 


FUEL ! 


590 



! ELEVAT I ON : 7 : BANK RIGHT 

: > UNDERCARRIAGE UP < : 

In this "snapshot," taken a few moments later, we have started 
to bank to the right. Our airspeed is up to 59, and we've continued to 
climb. However, the elevation has fallen, so the rate of climb will de- 
crease. As we level off, the horizon gradually tilts back to the hori- 
zontal: 



HORIZON 




HEADING 

. N . : 
. . : « . ! 


. C * * 9 » 
« « © 




W--X--E : 
. S . : 


! R A N G E 3.6 


: TIME 


5.3 : 226 


: A I R SP E ED : 


7 6 




! A LTI M ET ER : 
: F U E L : 


47 5 
5 2 5 


15 D E G . 



ELEVATION: 12 ! THROTTLE ON 
> UNDERCARRIAGE UP < 
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As I said, there are an awful lot of things to keep track of. While 
concentrating on the direction in which I'm flying, I've been neglect- 
ing the plane's elevation— which has been slowly falling: 



HORIZON 




HEADING 


* » » « * a 
* $ * * 


* * *. * 4 


. N . 
. . : 9 . 

W--X--E 
■ s , 


RANGE 7 .4 


: TIME 


B . 9 ! 226 


AIRSPEED : 


1 5 2 




ALTIMETER: 
FUEL : 


5 9 3 
457 


31 D E G . 


ELEVATION: 


: THROTTLE ON 



> UNDERCARRIAGE UP < 



Suddenly I notice the nose is pointing downward — note how the 
horizon is now right at the top. I frantically try to climb: 



HORIZON HEADING 



. •••••• 

. e © » e 

: 


! . N . : 

. . : e . : 

W--X--E j 

. S . : 


•RANGE 11.3 : TIME B .1 : 226 


AIRSPEED s 245 

> 

ALTIMETER: 250 


47 OEG. 


FUEL : 403 




ELEVATI0N:-11 ; CLIMB 

> UNDERCARRIAGE UP < 
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However, too much is happening at once, with the inevitable re- 



sult: 



CRASH ! 
CRASH I 
CRASH I 
CRASH I 
CRASH I 
CRASH I 
CRASH 



CRASH! 
CRASH I 
CRASH I 
CRASH I 
CRASH! 
CRASH I 



CRASH I 
CRASH I 

CRASH I 
CRASH ! 
CRASH I 
CRASH I 



The final picture is pretty bleak: 



HORIZON 

C R * « A • •- S ♦ 

• A • • S • H * 

R » • A • * S ♦ H 

R * * A * • S • H 

A * « S » H * I 

• ♦ A * * S * H • 

• * C R • • A • * 



HEADING 



» — X-9E 



. S . 



RANGE 14.1 : TIME 9.8 : 226 



8 4 EG . 



AIRSPEED : 273 

> 

ALTIMETER: 

> 

FUEL s 366 



E LEVATI ON : -1 6 : THROTTLE ON 
> UNDERCARRIAGE UP < 
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The commands you have at your disposal are: 

R This allows you to repeat the current flight from the beginning up 
to that point 

Space bar This is used for "throttle on," and increases your speed. 

Use this to throttle back. 
Q To increase elevation. 
A To decrease elevation. 
Z To turn left 
M To turn right 

1 To change undercarriage from up to down, or from down to up. 

Remember, to take off your speed must be between 45 and 60, 
and your elevation must be greater than 10. To land, your undercar- 
riage must be down ( !), your heading must be within 12 degrees of the 
setting shown beneath the compass, you must be at 15 or below on 
your altimeter, and your speed must not be greater than 20. You'll 
find that, as in real life, landing is even harder than taking off. 

The complete FLIGHT SIMULATION listing is given in the next 
chapter. 
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TShifii 

m mm ^uBP 

El SPUT I AH I II MTlftli 
bp fLr P. 'R trp. U r& P! nwfl SUP EL^iftRi I h UJj ra 

B9 BwBi 'SsslljSi^ BUB '■Ssls Iw Sss » tla '^^^r bHbi esq fill Hi xssiOaS' m ™ 

Listing 



Now it's time to earn your wings with this listing: 

1 REM FLIGHT SIMULATI ON 
20 RPT=0 

30 LD=I NT ( RND ( 1 ) *36 ] 

40 DIM E$[ 1 000 ] s REM THIS HOLDS FLIGHT 

RECORD 

50 DIM A$(7],C$(7]:REM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM ************************** 
7 G0SUB 2320 : REM INITIALIZE 
80 I F CRASH = THEN G0SUB 8 20 : R EM HORIZON 

/COMPASS 

90 G0SUB 5 : R EM PRINTOUT 
100 IF C R A S H = 1 THEN END 

110 I F L A N D = 1 AND U F L A G = 1 THEN PRINT "WE 
LL DONE. A PERFECT LANDI NG II": END 
120 I F L A N D = 1 AND U F L A G = THEN PRINT "YO 
UR WHEELS ARE UP" : GOSUB 1780: GOTO 90 
130 T=AIRSPEED: STALL =0 
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140 X$ = I NK EY $ 

150 IF X $ = " R " THEN RPT = 1 i GOTO 70 

160 I F RPT = 1 AND E$(CL0CK+1 ]="" THEN RPT 

= s GOTO 140 

170 IF RPT = 1 THEN X$ = E$ [ CLOCK + 1 ] 

1 80 IF X « = " " THEN 1 40 

190 I F CL0CKO99 THEN E$ [ CLOCK + 1 ] =X$ 

200 IF TAK E0V = 1 THEN ELEVATE = I NT ( ELEVATE 

+ RND ( 1 ) *2-R ND [ 1 ] *3 ] 

210 IF AIRSPEED <3 THEN 200 

220 IF X $ = 11 Q " THEN E L E V A T E = E L E V A T E + 5 : EFL 

AG = 5 : I F ELEVATE >60 THEN S T A L L = 1 

230 IF X $ = " A " THEN E L E V A T E = E L E V A T E - 5 : EFL 

AG = -5 s I F ELEVATE<-70 THEN STA LL = -1 

240 IF S T A L L < >0 THEN GOSUB 1 640 

250 IF ALTIHETER<1 THEN 290 : R EM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X $ = " Z " THEN WA=WA-„5:ANG=ANG-6jIF 

WA<-3 THEN WA=-3 
270 IF X $ = " M " THEN W A = W A+ „ 5 I A N G = A N G + 6 s I F 

WA >3 THEN WA = 3 
280 ANG = I NT { ANG + R ND ( 1 ) *2-RND [ 1 ] =* 2 ] 

2 90 I F X$ = " THEN AIRSPEED=AIRSPEED+8.5 

300 IF X $ = » . " THEN A I R S P E E D = A I R S P E E D - 7 
31 AI RSPEED=AI RSP EED-ELEVATE/5 
320 IF UF LA G = 1 THEN A I R S P E E D = A I R S P E E D - 1 . 
5 i FUEL=FUEL-. 5 

330 I F AI RSPEED <0 THEN AIRSPEED=0 
340 I F AIRSPEED >400 THEN AIRSPEED=400 
350 IF X $ = » 1 " AND UF LA G = THEN UFLAG = 1 :G 
OTO 370 

360 IF X$ = «1" AND U F L A G = 1 THEN U F L A G = 
370 FUEL=FUEL-[ABS(T-AIRSPEED]/10]-3.75 
380 IF FUEL<1 THEN GOSUB 1780 

3 90 I F TAK E0V = 1 THEN 420 

400 I F ELEVATE>1 AND AI RSP EED >45 AND AI 

RSPEED<60 AND U F L A G = 1 THEN TAK E0V = 1 

410 I F TAKEOV=0 THEN ALTIMETER=0 : GOTO 45 



420 I F L A N D = AND AIRSPEEDOO THEN ELEVA 
TE=ELEVATE — 5 |ALTIMETER = 9*ALTIMETER/1 
430 ALTIMETER=ALTIMETER+INT[ ( (ELEVATE+.1 
]*AIRSPEED]+EFLAG*AIRSPEED/1000]/80 
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440 IF ALTIMETERO00 AND TAK E0V = 1 THEN A 
LTIMETER=ALTIHETER+AIRSPEED/30+ELEVATE 
450 IF A LT I M ET ER <0 THEN GOSUB 1 780 s R EM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE I T 

EASI ER ( OR EVEN HARDER] TO LAND 
470 I F A LT IMETER>1 5 AND AIRSPEED >20 OR T 
A K E V = THEN 80 

480 IF ABS [ AN6-LD ] <1 3 OR ABS(ANG+360-LD) 
<1 3 THEN LA ND = 1 : GOTO 80 

490 R EM ************************** 
500 REM PRINTOUT 
510 C LS 

520 PRINT » HORIZON" ;TAB(20] ; "HEADING" 



530 EV=I NT ( ELEVATE/1 ] 
5 40 IF EV >2 THEN EV = 2 
550 I F E V < - 2 THEN EV = -2 

5 60 IF E V < > AND TAK E0V = 1 AND CRASH = TH 
EN GOSUB 19 20 

570 PRINT " : t : " 



580 FOR J = 1 T 7 

5 9 PRINT •* s " ; A $ [ J ) | " I " » C $ [J ] | " i " 

6 00 A $ ( J ] = " " 
610 NEXT J 

620 PRINT "s ■ -:" 



630 DIST=DIST+ABS( (COS[ELEVATE) )*AIRSPEE 
D ]/360 

6 40 CL0CK=CLOCK+1 

650 PRINT ":RANGE"INT(DIST*10]/10" : TIME 
» I NT ( CLOCK J/1 | " ! " LD 

660 PRINT " s ! " 

670 PRINT " sAIRSPEED :»INT[AIRSPEED) 

680 PRINT n :"5LEFT$(Q$,INT[AIRSPEED/20) ] 

p » > » 

6 90 PRINT " s ALTIM ET ER ; " I NT ( ALTI METER ) | 
700 I F A N G < THEN PRINT TAB(18] ;360 + ANG" 
DEG." 

710 I F ANG > = THEN PRINT TAB(19] jANG" DEG 
■i 

7 20 MR=INT[ ALTIMETER/30] ! IF MR >20 THEN M 
R = 20 



730 PRINT "s»jLEFT$(Q$,MR)s">" 

740 PRI NT "iFUEL s"INT{FUEL) 

750 PRINT » i » ; LEFTS ( Q $ , SO-I NT ( FUEL/750 ] ) 

; " > " 

760 PRINT " i i " 



77 PRINT " c ELEVATION: "ELEVATE" ; "|sG0SU 
B 2210IPRINT U $ 

78 I F U F L A G = 1 THEN PRINT " s " | T A B [ 5 ] | " > 
UNDERCARRIAGE DOWN < s" 

790 IF U F L A G = THEN PRINT " 1 " ; T A B ( 6 ] j " > 
UNDERCARRIAGE UP < 1" 
8 00 RETURN 

810 REM ************************** 

820 REM ASSIGN HORIZON/COMPASS 

830 I F ABS ( I NT [ WA + . 5 )] =3 THEN GOSUB 980 

8 40 I F ABS ( I NT ( WA+ . 5 ) J =2 THEN GOSUB 1070 

850 I F ABS ( I NT { WA+ . 5 ] ] =1 THEN GOSUB 1160 

86 I F I NT ( WA+ „ 5 ) =0 THEN GOSUB 1250 
870 REM NEXT TWO LINES USED TO 

GRADUALLY STRAI GHTEN UP WINGS 



880 


IF W A > 


THEN 


WA = 


WA- . 2 




890 


I F WA<0 


THEN 


WA = 


WA+ . 2 




900 


I F WA > . 


2 THEN 


1350 




910 


FOR Z = 1 


T 7 








9 20 


M $ [ 8-Z] 


=A$(Z] 








930 


N EXT Z 










940 


FOR Z=1 


T 7 








950 


A$ ( Z ] =M 


* ( Z) 








960 


NEXT Z 










970 


GOTO 13 


50 








980 


REM WA= 


3 OR - 


3 






990 


A $ ( 1 J =" 






* 11 




1000 


A $ { 2 3 = 


11 




* * 


11 


1010 


A $ I 3 J = 


11 




* * 


11 


1020 


A$ ( 4) = 


11 


* * 




11 


1030 


A$(5)= 


11 * * 




ti 


1 040 


A $ ( 6 J = 


11 * * 






11 


1050 


A$ ( 7 ) = 


n * * 






11 


1060 


RETURN 










1070 


R EM WA 


= 2 OR 


-2 






1080 


A$ ( 1 ] = 


11 






11 
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1 


090 


A $ I 2 ] = " 


* * 


ii 


1 


1 00 


A $ [ 3 ] = " 


* * * 


ii 


1 


1 1 


A $ ( 4 ) = " 


* * * 


ii 


1 


1 20 


A $ ( 5 ] = " 


* * * 


ti 


1 


1 30 


A$(6]="*** 


ii 


1 


1 40 


A $ [ 7 ] = " 




ii 


1 


1 50 


RETURN 






1 


1 60 


REM WA=1 


OR -1 




1 


1 7 


A $ [ 1 } = » 




ii 


1 


1 80 


A$(2)=" 




ii 


1 


1 90 


A $ [ 3 ] = " 


* * * * * 


ii 


1 


2 


A $ ( 4 ] = " 


****** 


ii 


1 


21 


A$(5]=" **** 


ti 


1 


220 


A $ [ 6 ] = " 




ti 


1 


230 


A $ { 7 ] = " 




ii 


1 


240 


RETURN 






1 


250 


REM WA=0 






1 


260 


A $ t 1 ) = " 




ti 


1 


270 


A $ [ 2 ] = " 




ii 


1 


280 


A $ t 3 ) = " 




ii 


1 


290 


A$[4]= "**************" 


1 


300 


A $ [ 5 ) = " 




ii 


1 


310 


A $ [ 6 ) = " 




ii 


1 


320 


A $ ( 7 ] = " 




ii 


1 


33 


RETURN 






1 


340 


REM ************************** 


1 


350 


REM ASSIGN COMPASS STRINGS 


1 


3 6 


F2=ANG-F1 




1 


37 


I F F2<0 


THEN F A = I N T [ (F 2 + 37 5 J/30) 


1 


380 


IF F2>=0 


THEN FA=I NT ( ( F2 + 1 5 ) /30 ) 


1 


390 


IF FA=12 


THEN FA=0 




1 


400 


C $ [ 1 ] =" 


. N . » 




1 


41 


I F FA = 1 1 


THEN C 8 ( 2 ] = " 


.0: . . " s GOTO 
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1 


420 


IF F A = 


THEN C$ [ 2 J =" 


. .0. . " : GOTO 


1 


45 








1 


430 


I F F A = 1 


THEN C $ ( 2 ] = « 


. . : e . " i GOTO 


1 


450 








1 


440 


C $ [ 2 ) = « 


N H ■ D B 




1 


450 


IF FA=10 


THEN C $ ( 3 ] = 


" . « ! .."I GOT 



1480 

1 460 IF FA = 2 THEN C$(3)= " 1 « . «* : GOTO 
1 480 

1 47 C $ [ 3 } = .. i 
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1 480 
1510 
1490 
1510 
1 500 
15 10 
1 540 
1520 
1540 
1530 
1 540 

15 80 
1550 
1 5B0 
1560 
1 580 
157 
1580 
1590 
1600 
1610 
1 620 

16 30 

16 40 
1650 
1660 
1670 
1680 
1690 

17 00 
1710 
1720 
1730 
1 740 
1750 
1760 
1770 
1780 
17 90 
1800 
1810 

1820 
1830 



IF FA = 9 THEN C $ ( 4 ] 
IF F A = 3 THEN C $ ( 4 ) 



C $ [ 4 ) = ' 



I--X--E" 



IF FA = 8 THEN C $ [ 5 ) 

I F F A = 4 THEN C $ [ 5 ] 

C $ [ 5 3 = " . . s 

IF FA = 7 THEN C $ ( 6 ) 

I F F A = 6 THEN C $ [ 6 ] 

IF F A = 5 THEN Cf ( 6 ) 



■ " W @ - X — E" : GOTO 

" W — X - @ E " s GOTO 

" . 6 : , , " s GOTO 

" . . I e . " : G T 

" . « i . . " : GOTO 

" . . . . " i GOTO 
. . : e . "i GOTO 



C $ I 6 } = " 
C $ [ 7 ] =" 



a o a & 



It 

S " 

h O g 

IF ANG>360 THEN ANG=ANG-360 
F 2 = A N G 

IF W>0 THEN W=W-,4 
IF W<0 THEN W = W+ . 4 
RETURN 

REM STALL/FALL 

IF STALL=-1 THEN 1710 

FOR J=1 TO 10 

PRINT T A B ( J ) j "YOU HAVE STALLED I " 
NEXT J 

AIRSPEED=AIRSPEED/4 
RETURN 

FOR J=1 TO 10 

PRINT TAB(J] ; "UNCONTROLLED DIVE! I » 
PRINT TAB [ 2 1 - J ] ; "PULL UP! I " 
NEXT J 

ALTIMETER=4»ALTI METER/5 
RETURN 

REM ***** ******************** « 

REM CRASH 

CRASH=1 

ALTIMETER=0 

M $ = " * * * C R * * A * * S* H* I I * " : R E M 

25 CHARACTERS LONG 

FOR J=1 TO 20 

PRINT TAB[J]j" CRASH!" 
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1840 
1850 

186 

187 
1 880 
1890 
190 
1910 
1980 
1930 
1940 
1 40 
1950 
1960 
1 970 
1980 
1 9 90 
200 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
20B0 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
216 
2170 
218 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
CLIMB 



PRINT TAB(21-J) f "CRASH!" 
NEXT J 

FOR J=1 TO 7 

G=I NT ( RND ( 1 ) *1 1 )+1 

A$(J)=MID$(M$,G,14) 

NEXT J 

RETURN 

REM ************************** 
REM ADJUST HORIZON 

G* = " " : REM 14 SPACES 

ON EV+3 GOSUB 19 6 0,2020,2070,2080,2 

RETURN 
REM EV=-2 
FOR J=1 TO 4 
A${ J) =AS [ J + 3 J 
NEXT J 

A$[5]=G$:A$(6]=G$:A$t7]=G$ 

RETURN 

REM EV=-1 

FOR J=1 TO 6 

A$ [ J ] =A$ ( J + 1 ] 

NEXT J 

A$ ( 7 ] =G$ 

RETURN : REM EV=0 

REM EV=1 

FOR J = 6 TO 1 STEP -1 

A $ f J + 1 ] = A $ ( J ) 

NEXT J 

A $ ( 1 ) =G$ 

RETURN 

REM EV=2 

FOR J=4 TO 1 STEP -1 
A $ ( J + 3 ] = A $ { J ) 
NEXT J 

A$(1 ]=G$iA$(2]=G$«A$(3)=G$ 
RETURN 

REM ************************** 
REM INPUT INTO COMMAND NAME 
U $ = " " 

IF X$=" " THEN U$=" THROTTLE ON" 

IF X$=»." THEN U$=" THROTTLE OFF" 

I F X $ = " Q " AND ALTIMETER>0 THEN U$ = " 
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226 
NOSE 
2270 
2 280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 

21 
2360 

2370 
2360 
23 90 
2400 



AND ALTIHETER=0 THEN U$= 



THEN 
THEN 
THEN 



U$="N0SE 
U$="BANK 
U$="BANK 



DOWN" 
LEFT" 
RIGHT" 



I F X $ = » Q " 
UP" 

IF X $ = " A " 
I F X $ = " Z " 
I F X $ = " M " 
RETURN 

REM ************************** 

REM INITIALIZATION 
CLS 

RANDOMIZE VAL( R I G H T $ ( T I M E $ , 2 ] ] 

q$ = h » S REM 

CHARACTERS I N STRING 
UFLAG=1 ; REM UNDERCARRIAGE - 
1 - DOWN, - UP 
EFLAG=0 : REM CLIMB RATE 
ANG=0:TAKEOV=0:LAND=0 
AI RSP EED = 

D I S T = t R EM DISTANCE COVERED ' RANGE 



2410 ALTIMETER=0 

2420 ELEVATE = : REM ANGLE OF ELEVATION 
2430 WA = : REM 'WING ANGLE ; USED I N 

HORIZON PRINTOUT 
2440 FUEL=750:CRASH=0lF2=0:F1=0:REM 

FOR DIRECTION C H A N G E / C M P A S S ROUTINE 
2450 CLOCK=0 : REM TIME 
2460 X $ = » " 
2470 RETURN 

2480 REM ALL TAKE-OFFS ARE INTO THE 

NORTH {SPEED 45-60 ; ELEVATION >10J 
2490 REM LANDING DIRECTION SHOWN 

BELOW COMPASS 
2500 REM YOU MUST BE WITHIN 1 2 DEGREES 
OF THIS FOR A SUCCESSFUL LANDING 



V 



Additional Listings 
fop APPLE lis a«S 

^ffi& ^Mhl MR n gjjj& jb !<ffiBBfN fSSSWfri ^HBk BBBEmih. B^n a —n 



SPECIAL INSTRUCTIONS FOR COMMODORE PROGRAM- 
MERS: You'll note that many of the PRINT statements in the Com- 
modore 64 listings begin with three-letter codes within brackets like 
this: [RED]. 

Do not type these in directly. These indicate the use of the Com- 
modore's number keys to control screen colors. (Note that each of 
the number keys also has a color marked on it.) 

For example, when you see [RED] in the listing, you should 
press the "CTRL" and the "RED" key— which is also the "3" key— at 
the same time. 



fit 

fir r hE HIC* 



SPACE LANDING SIMULATION / Apple lie version 

10 REM SPACE LANDING SIMULATION I 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 8020 

30 REM ********************** 
40 REM STARTING VALUES 
50 FUEL = 200 + RND (1) * 40 
60 VELOCITY = RND (1) * 20 - 6 
70 HEIGHT = 500 - RND ( 1 ) * 10 
80 HOME 

90 PRINT " FUEL"; TAB ( 12)" VELOCITY"; T 
AB( 24)" HEIGHT" 
100 REM ********************* 

110 REM MAJOR CYCLE 

120 GOSUB 430 

130 IF FUEL < = THEN FUEL = 0:THRUST 

= 0: GOTO 170 

140 GET A$ 

150 IF A$ < "0" OR A$ > "9" THEN 140 

152 P = INT (HEIGHT / 2 * 1.25) 
155 IF P < 1 THEN P = 1 
157 IF P > 255 THEN P = 255 

159 D = 150: GOSUB 8000 

160 THRUST = VAL (A$) + .1 
170 FUEL = FUEL - THRUST 
180 FLAG = THRUST - 2 

190 THRUST = 

200 HEIGHT = HEIGHT + VELOCITY + FLAG / 4 

210 VELOCITY = VELOCITY + FLAG 
220 IF HEIGHT < = 10 THEN 240 
230 IF HEIGHT > 10 THEN 120 
240 IF VELOCITY > - 9 AND VELOCITY < 5 

THEN 290 
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250 GOSUB 410 

260 GOSUB 5000- PRINT "YOU HAVE CRASHED 
INTO THE SURFACE. . 
270 IF HEIGHT > THEN HEIGHT = - HEIGH 

T 

280 GOTO 320 

290 GOSUB 5500: PRINT "YOU HAVE LANDED S 
AFELY ! " 

300 FLASH : PRINT "YOUR SKILL RATING IS 
" ; INT ( - 1000 * FUEL / (VELOC 
ITY - HEIGHT)) 
305 NORMAL 
310 HEIGHT = 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E : " 

340 PRINT " FUEL"; TAB( 12)" VELOCITY"; 
TAB( 24)" HEIGHT" 
350 GOSUB 430 
360 GOSUB 410 

370 IF HEIGHT > = THEN END 
380 IF HEIGHT < THEN PRINT "NEW CRATE 
R ON MOON "; INT ( ABS (100 * ( 

HEIGHT + .2) / 3)) / 100;" METERS DEE 

P ! " 

390 PRINT "YOUR SKILL RATING IS "; INT ( 
100 * FUEL / (VELOCITY - HEIGHT 
)) 

400 END 

410 PRINT " 



415 GOSUB 5200 

420 RETURN 

430 PRINT INT (100 * FUEL) / 100; 

440 PRINT TAB( 12) - INT (100 * VELOCI 

TY) / 100; 

450 IF HEIGHT > = THEN PRINT TAB( 2 
4) INT (100 * HEIGHT) / 100 

460 IF HEIGHT < THEN PRINT 

470 RETURN 

5000 P = 250:D = 255 

5010 GOSUB 8000 

5020 RETURN 
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5200 P = 150-.D = 100 
5210 GOSUB 8000 
5220 RETURN 
5500 P = 5:D = 10 
5510 GOSUB 8000 
5520 P - P + 15 

5530 IF. P < 250 THEN GOTO 5510 
5540 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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MONTE CARLO DEMONSTRATION / Apple lie version 

10 REM MONTE CARLO DEMONSTRATION 
15 REM APPLE IIE/IIC VERSION 

20 GOSUB 370: REM INITIALISE 

30 REM ******************** 

40 REM MAJOR CYCLE 

50 GOSUB 100: REM PRINT 

60 IF P = EP AND Q = EQ THEN PRINT : PR 

INT "DEMONSTRATION OVER": END 

70 GOSUB 230: REM GENERATE MOVE 



80 


GOTO 50 






90 


REM ******************** 




100 


REM PRINTOUT 




110 


A$(P,Q) 


= "0" 




120 


M = M + 


1 




130 


VTAB 5 






140 


PRINT 


"MOVE: ";M 




150 


FOR X 


= 1 TO 10 




160 


FOR Y 


= 1 TO 10 




170 


PRINT 


A$(X,Y);" "; 




180 


NEXT Y 






190 


PRINT 






200 


NEXT X 






210 


RETURN 






220 


REM ************* 




230 


REM GENERATE MOVE 




240 


A$(P,Q) 


_ 1! ft 




250 


G = 






260 


T = INT ( RND (1) * 4) + 1 




270 


ON T GOSUB 310,320,330,340 




280 


IF G = 


THEN 260 




290 


IF G = 


1 AND RND (1) > .5 


THEN 260 


300 


RETURN 




310 


IF P > 


1 THEN P = P - 1:G = 


G + 1 : R 


ETURN 








320 


IF P < 


10 THEN P = P + 1:6 


= G + 1: 


RETURN 






330 


IF Q > 


1 THEN Q = Q - 1 :G = 


G + 1: R 


ETURN 








340 


IF Q < 


10 THEN Q = Q + 1:G 


= G + 1: 


RETURN 






350 


RETURN 
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360 • REM ********** 



370 REM INITIALISE 

380 HOME 

400 DIM A$(10,10) 

410 FOR X = 1 TO 10 

420 FOR Y = 1 TO 10 

430 A$(X,Y) = "." 

440 NEXT Y 

450 NEXT X 

460 PRINT : PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 

480 INPUT P 

490 IF P < 1 OR P > 10 THEN 480 v 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10)" 

510 INPUT Q 

520 IF Q < 1 OR Q > 10 THEN 510 

530 PRINT : PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

560 IF EP = P OR EP < 1 OR EP > 10 THEN 



570 PRINT "ENTER SECOND END CO-ORDINATE 



580 INPUT EQ 
590 IF EQ = Q OR EQ <1 OR EQ > 10 THEN 



550 



(LESS 



THAN 10) 



580 

600 A$(P,Q) = 
610 A$(EP,EQ) 
615 HOME 
620 RETURN 




it 
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CELL CLASH SIMULATION / Apple lie version 



10 REM SIMULTANEOUS EQUATIONS 
12 REM APPLE IIE/IIC VERSION 
20 HOME 
30 GOSUB 8020 
40 HS = 
45 SD = RND (1) 
50 FD = RND (0) 

60 PRINT : PRINT "DECAY FACTOR IS 
70 GOSUB 550 
80 HOME 

90 PRINT : PRINT 

100 PRINT "ENTER NUMBER OF CELL X 
START (LESS THAN 40) 

ii 

110 INPUT CP: IF CP < 1 OR CP > 39 THEN 
110 

120 PRINT : PRINT 

130 PRINT "WE HAVE " ;CP;" X CELLS" 
140 PRINT : PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

tt 

160 INPUT EP: IF EP < 1 OR EP > 39 THEN 
160 

170 HOME : VTAB 5: PRINT "PLEASE STAND B 
Y » 

-L « « « , 

180 GOSUB 550: HOME 

190 DA = 1 

200 IF CP > EP / FD THEN CP = EP / FD 

210 PRINT " " 

220 PRINT "TIME ELAPSED: " ; DA 

230 PRINT INT (CP);" CELL X" 

240 PRINT INT (EP);" CELL Y" 

250 REM ********************* 

260 REM MAJOR CYCLE 

270 GOSUB 550 

280 DA = DA + 1 

290 PRINT " " 

300 PRINT "TIME ELAPSED: " ; DA 

305 P = 100:D = 50: GOSUB 8000 
310. IF CP > EP / FD THEN CP = EP / FD 



" ; FD 
TO 
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320 REM EQUATIONS FOLLOW; 
OF THEM TO SEE WHAT HAPPENS 



MODIFY PARTS 



330 CP = CP 
D) 

340 EP = EP 
PRINT 



+ ((8 * CP 



350 
360 
370 
380 
390 



+ ((4 * EP 
INT (CP);" 



- CP * EP / 3) * F 
.01) 



- EP 
CELL 



* CP) 
X" 



PRINT 
IF EP < 
GOSUB 550 
GOTO 280 



INT (EP);" CELL Y" 
2 OR CP < 2 THEN 410 



400 REM ********************* 

410 IF DA > HS THEN HS = DA 

420 PRINT : PRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SU 
RVIVED" 

440 PRINT "FOR " ; DA ; " TIME PERIODS" 

450 PRINT " 



460 PRINT "THE BEST SURVIVAL TIME SO FAR 
IS ";HS 

470 GOSUB 550 

480 PRINT " 



490 PRINT "DO YOU WANT A NEW RUN (Y OR N 
)?" 

500 GET A$ 

510 IF A$ < > "Y" AND A$ < > "N" THEN 
500 

520 IF A$ = "Y" THEN HOME : GOTO 60 

530 PRINT "OK": PRINT : PRINT :P = 200 :D 

= 250: GOSUB 8000: END 

540 REM ********************** 

550 FOR, J = 1 TO 2000: NEXT J 

560 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
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8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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LIFE / Apple lie version 

10 REM CONWAY'S LIFE SIMULATION 

15 REM APPLE IIE/IIC VERSION 

20 REM DEFINED INITIAL COLONY 

30 GOSUB 460: REM INITIALISE 

40 REM ********************* 

50 REM MAJOR CYCLE 
60 GE = GE + 1 

70 GOSUB 290: REM PRINTOUT 

80 GOSUB 110 REM EVOLVE 

90 GOTO 60 

100 REM ******************** 

110 REM EVOLVE 

120 FOR X = 2 TO 12 

130 FOR Y = 2 TO 12 



140 


C = 

















150 


IF 


A$(X - 


1,Y - 


1) = 


"X" THEN 


C 




c 


1 

160 


IF 


A$(X - 


1,Y) = 


"X" 


THEN C = 


C 


+ 


1 


170 


IF 


A$(X - 


1,Y + 


1) = 


"X" THEN 


C 




c 


1 

180 


IF 


A$(X,Y 


- 1) = 


"X" 


THEN C = 


C 


+ 


1 


190 


IF 


A$(X,Y 


+ 1) - 


"X" 


THEN C = 


C 


+ 


1 


200 


IF 


A$(X + 


1,Y - 


1) = 


"X" THEN 


c 




c 


1 

210 


IF 


A$(X + 


1,Y) = 


"X" 


THEN C = 


c 


+ 


1 


220 


IF 


A$(X + 


1,Y + 


1) - 


"X" THEN 


c 




c 


1 

230 


IF 


A$(X 9 Y) 


= "X" 


AND 


C < > 2 


AND 


c 



< > 3 THEN B$(X,Y) = " " 
240 IF A$(X,Y) = " " AND C = 3 THEN B$(X 
,Y) = "X" 
250 NEXT Y 
260 NEXT X 
270 RETURN 

280 REM ********************* 
290 REM PRINTOUT 
300 HOME 

305 PZ = 200:DZ = 150: GOSUB 8000 
310 PRINT 

320 PRINT TAB( 4) "GENERATION " ; GE 
330 PRINT 
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340 FOR X = 2 TO 12 

350 FOR Y = 2 TO 12 

360 A$(X,Y) = B$(X,Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 

390 FOR Y = 12 TO 2 STEP - 1 

400 PRINT A$(X,Y); 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ******************** 

460 REM INITIALISATION 

470 HOME 

480 GOSUB 8020 

500 DIM A$(13,13),B$(13,13) 

510 VTAB 4: PRINT TAB( 11)"PLEASE STAND 

BY ... " 

520 "FOR X = 1 TO 13 

530 PRINT 14 - X;*' "; 

540 FOR Y = 1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A$(X,Y) = " " 

570 B$(X,Y) = " " 

580 NEXT Y 

590 NEXT X 

600 READ D: IF D = 99 THEN 630 

610 READ E:A$(D,E) = "X" :B$(D,E) = "X" 

620 GOTO 600 

630 GE = 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
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POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 



182 



ROBOT LOGO / Apple lie version 



1 UU 


REM 


ROBOT LOGO 


1 Ar 
1 05 


REM 


APPLE IIE/IIC VERSION 


Tin 


G0SUB 1730: REM INITIALISE 


1 i a 
1 ZU 


GOTO 


490 


t o a 
I 3 U 


REM 


********** * * ********* 


i / a 
i4U 


REM 




i c a 
I5U 


REM 




1 ou 


REM 




1 / U 


REM 




i o a 
1 OU 


REM 




iyu 


REM 




2 UU 


REM 




o i n 
zlu 


REM 




2 ZU 


REM 




1 o a 

2 JO 


REM 




o / a 

240 


REM 




OCA 

250 


T» T"l X/T 

REM 




ZoU 


REM 




o ~7 a 
2 /U 


REM 




Z oU 


REM 




9 Q n 
z y u 


REM 




J uu 


REM 




jlU 


REM 




320 


DATA 




O O A 
J JU 


REM 


*********************** 


340 


REM 


INT UX.AX 


JJU 


UX = 


INT (UX + .5):AX = INT 


5; 




•5 n 

OOU 


RETURN 


J / u 


REM 


*********************** 


QQA 


REM 


PRINT OUT 


Jy U 


HOME 




aa 
4-UU 


PRINT 


"STEP ";PSN;" > ";A$(PS 


IN 1 




4 1 U 


FOR J 


= 1 TO DE 


420 


FOR K 


= 1 TO BR 


430 


PRINT 


Z$(J,K) ; 


440 


NEXT 


K 


450 


PRINT 




460 


NEXT 


J 


470 


RETURN 
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480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT + 1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = "*" THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN = 0: REM PRIGRAM STEP NUMBER 

570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580: REM END 
590 FLAG = 
600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 
620 N$ = LEFT$ (M$,2) 



630 


IF 


N$ 




"ST" 


THEN 


560: REM START AG 


AIN 
















640 


IF 


N$ 




"PR" 


THEN 


GOSUB 


380: REM P 


RINTOUT 














650 


IF 


N$ 




"FO" 


THEN 


FLAG = 


1 


660 


IF 


N$ 




"BA" 


THEN 


FLAG = 


2 


670 


IF 


N$ 




"TU" 


THEN 


FLAG = 


o 

-J 


680 


IF 


N$ 




"HO" 


THEN 


FLAG = 


4 


690 


IF 


N$ 




"CL" 


THEN 


FLAG = 


5 


700 


IF 


N$ 




"GO" 


THEN 


FLAG = 


6 


710 


IF 


N$ 




"RA" 


THEN 


FLAG = 


7 


720 


IF 


N$ 




"RE" 


THEN 


FLAG = 


8 


730 


IF 


N$ 




"EN" 


THEN 


FLAG = 


9 


740 


IF 


N$ 




"FA" 


THEN 


FLAG = 


10 


750 


ON 


FLAG 


GOSUB 780, 


940,1000,1160,1220 



,1260,1400,1460,1530,1580 
760 GOTO 570 

770 REM ******************* 
780 REM FORWARD 

790 M$ = MID$ (M$,4) 

800 IF ASC (M$) = 87 THEN M$ = MID$ (M 
$.6) 

810 F$ = "F" 

820 NUM = VAL (M$) 
830 FOR E = 1 TO NUM 
840 IF UX < 1 OR UX > DE THEN 880 
850 IF AX < 1 OR AX > BR THEN 880 

860 Z$(UX,AX) = T$ 
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870 REM DELETE THE '*2' AT THE END OF T 
HE NEXT TWO LINES IF BETTER ON 
YOUR SYSTEM 

880 IF F$ = "F" THEN UX = UX 
X + AC * 2 

890 IF F$ = "B" 
X - AC * 2 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM 

940 REM 



+ UP: AX = A 



THEN UX = UX - UP:AX = A 



******************** 

BACK 
MID$ (M$,4) 
ASC (M$) = 75 THEN M$ = MID$ (M 

"B" 



950 M$ = 
960 IF 
$,3) 
970 F$ = 
980 GOTO 820 

990 REM ******************** 
1000 REM TURN 
1010 M$ = MID$ (M$,4) 
1020 IF ASC (M$) = 78 THEN M$ = 
M$,3) 
1030 NUM = 



MID$ ( 



VAL (M$) 

1040 Y = INT ((NUM + 17.5) / 45) 
IF Y = OR Y = 
FOR J 



1050 
1060 
1070 

GOTO 
1080 



IF UP 
1130 
IF UP 



8 THEN RETURN 

1 TO Y 

- 1 AND AC = THEN AC = 



1 THEN UP = 



- 1 AND AC = 1 OR UP = 1 A 



AND AC = 1 THEN UP = 1 : G 
OTO 1130 

1090 IF UP = 1 AND AC = THEN AC = - 1 
: GOTO 1130 

1100 IF UP = AND AC = 
- 1: GOTO 1130 

1120 IF UP = 
ND AC = - 1 THEN UP = 

1130 NEXT J 

1140 RETURN 

1150 REM ******************* 
1160 REM HOME 
1170 AX = INT ((BR + .5) / 2) 
1180 UX = INT ((DE + .5) / 2) 
1190 UP = - 1:AC = 0: REM FACES UP 
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1200 RETURN 

1210 REM ******************* 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

1250 REM ******************* 

1260 REM GO X,Y 

1270 P = 

1280 P = P + 1 

1290 IF MID$ (M$,P,1) = "," THEN 1320 

1300 IF P < LEN (M$) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX = VAL ( MID$ (M$,4,P - 1)) 

1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

)) 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 
1360 IF AC < 1 OR AC > BR THEN 1380 
1370 Z$(UX,AX) = R$ 
1380 RETURN 

1390 REM ******************** 

1400 REM RANDOM 

1410 AX = INT ( RND (1) * BR) 

1420 UX = INT ( RND (1) * DE) 

1430 Z$(UX,AX) = R$ 

1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 

1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 

1560 RETURN 

1570 REM ******************** 
1580 REM FACE 
1590 M$ = MID$ (M$,4) 

1600 ASC (M$) = 69 THEN M$ = MID$ (M$,3) 
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1610 NUM = VAL (M$) 

1620 Y = INT ( (NUM + 17.5) / 45) * 45 
1630 IF Y = OR Y = 360 THEN UP = - 1: 
AC = 

1640 IF Y = 45 THEN UP = - 1:AC = 1 
1650 IF Y = 90 THEN UP = Or AC = 1 
1660 IF Y = 135 THEN UP = 1:AC = 1 
1670 IF Y = 180 THEN UP = 1:AC = 
1680 IF Y = 225 THEN UP = 1:AC = - 1 
1690 IF Y = 270 THEN UP = 0:AC = - 1 
1700 IF Y = 315 THEN UP = - 1;AC = - 1 
1710 RETURN 

1720 REM ********************* 

1730 REM INITIALISE 

1740 HOME 

1770 BR = 40 

1780 DE = 24 

1790 BR = BR - 1 

1800 DE = DE - 3 

1810 UP = - 1:AC = 0: REM STARTS FACING 
UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 
1830 DIM Z$(DE,BR): REM DISPL 
AY 

1840 T$ = "X": REM PUT SYMBOL FOR ROBOT' 
S TRAIL HERE, CHANGE IF YOU WIS 
H 

1850 AX = 0;UX = 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J = 1 TO DE 

1880 FOR K = 1 TO BR 

1890 Z$(J,K) = " " 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 



i 
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100 REM POINT-DUTY ROBOT 

105 REM APPLE IIE/IIC VERSION 

106 REM EXAMPLES IN TEXT MAY HAVE TO BE 
MODIFIED TO PRODUCE REQUIRED R 

ESULTS 



110 


GOSUB 


1730: REM INITIALISE 


120 


GOTO 


490 


130 


REM 


********************* 


140 


REM 




150 


REM 




160 


REM 




170 


REM 




180 


REM 




190 


REM 




200 


REM 




210 


REM 




220 


REM 




230 


REM 




240 


REM 




250 


REM 




260 


REM 




270 


REM 




280 


REM 




290 


REM 




300 


REM 




310 


REM 




320 


DATA 


"*" 


330 


REM 


*********************** 


340 


REM 


INT UX,AX 


350 


UX = 


INT (UX + .5) :AX = INT (AX 


i) 

360 


RETURN 


480 


REM 


*********************** 


490 


REM 


READ PROGRAM 


500 


COUNT 


= COUNT + 1 


510 


READ 


A$(C0UNT) 


520 


IF A$ 


J(COUNT) = "*" THEN 550 


530 


IF COUNT < 20 THEN 500 


540 


REM 


*********************** 


550 


REM 


EXECUTE PROGRAM 


560 


PSN = 


0: REM PRIGRAM STEP NUMBER 
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570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580s REM END 
590 FLAG = 
600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 
620 N$ = LEFT$ (M$ s 2) 

630 IF N$ = "ST" THEN 560: REM START AG 



AIN 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 



770 
780 
790 M$ . 
800 IF 



IF N$ = "F0" THEN FLAG = 1 
IF N$ = "BA" THEN FLAG = 2 
IF N$ = "TU" THEN FLAG = 3 
IF N$ = "HO" THEN FLAG = 4 
IF N$ = "GO" THEN FLAG = 5 
IF N$ = "RA" THEN FLAG - 6 
IF N$ = "RE" THEN FLAG = 7 
IF N$ = "EN" THEN FLAG = 8 
IF N$ = "FA" THEN FLAG = 9 
ON FLAG GOSUB 780 , 940 , 1000 , 1 1 60 , 1 260 
,1400,1460,1530,1580 
760 GOTO 570 

REM ******************* 
REM FORWARD 
MID$ (M$,4) 
ASC (M$) = 87 THEN M$ = MID$ (M 
$,6) 
810 F$ = "F" 
820 NUM = VAL (M$) 
830 
840 
850 
860 
880 
X + AC 

890 IF F$ = "B" 
X - AC 
900 GOSUB 340 
910 NEXT E 
915 HC0L0R= FC 
920 RETURN 

930 REM ******************** 
940 REM BACK 
945 HCOLOR- BC 
950 M$ = MID$ (M$,4) 



VAL 
FOR E = 
IF UX < 
IF AX < 1 
HPLOT AX,UX 
IF F$ = ,! F" 



1 TO NUM 

1 OR UX > DE THEN 880 
OR AX > BR THEN 880 



THEN UX = UX + UP: AX = A 
THEN UX = UX - UP:AX = A 
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960 IF ASC (M$) = 75 THEN M$ = MID$ (M 
$.3) 
970 F$ = "B" 
980 GOTO 820 

990 REM ******************** 
1000 REM TURN 
1010 M$ - MID$ (M$,4) 

1020 IF ASC (M$) - 78 THEN M$ = MID$ ( 
M$,3) 

1030 NUM = VAL (M$) 

1040 Y = INT ((NUM + 11.25) / 22.5) 
1050 IF Y = OR Y = 16 THEN RETURN 
1060 FOR J = 1 TO Y 

1065 IF UP = - 2 AND AC = OR UP = 2 A 
ND AC = 2 THEN AC = 1 : GOTO 113 


1070 IF UP = - 2 AND AC = 1 THEN AC = 2 
: GOTO 1130 

1075 IF UP = - 2 AND AC = 2 OR UP = A 
ND AC = - 2 THEN UP = - Is GOTO 
1130 

1080 IF UP - - 1 AND AC = 2 OR UP = 1 A 
ND AC =- - 2 THEN UP = 0: GOTO 
1130 

1085 IF UP = AND AC = 2 OR UP = 2 AND 
AC = - 2 THEN UP = 1: GOTO 113 


1090 IF UP m 1 AND AC = 2 THEN UP = 2: G 
OTO 1130 

1095 IF UP = 2 AND AC - 1 THEN AC = 0: G 
OTO 1130 

1100 IF UP = 2 AND AC = THEN AC = - 1 
: GOTO 1130 

1105 IF UP = 2 AND AC = - 1 THEN AC = 
- 2: GOTO 1130 

1110 IF UP = - 1 AND AC = - 2 THEN UP 
= - 2: GOTO 1130 

1115 IF UP = - 2 AND AC = - 2 THEN AC 
= - 1: GOTO 1130 

1120 IF UP = - 2 AND AC = - 1 THEN AC 
= 

1130 NEXT J 
1140 RETURN 
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1150 REM ******************* 

1160 REM HOME 

1170 AX = INT ((BR + .5) / 2) 

1180 UX = INT ((DE + .5) / 2) 

1190 UP = - 2:AC = 0: REM FACES UP 

1200 RETURN 

1210 REM ******************* 
1220 REM CLEAN 
1230 GOSUB 1870 
1240 RETURN 

1250 REM ******************* 
1260 REM GO X,Y 

1270 P = 
1280 P = P + 1 

1290 IF MID$ (M$,P,1) = V THEN 1320 
1300' IF P < LEN (M$) THEN 1280 
1310 RETURN : REM ERROR 
1320 UX = VAL ( MID$ (M$,4,P - 1)) 
^1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 
1360 IF AC < 1 OR AC > BR THEN 1380 
1370 HPLOT AX,UX 
1380 RETURN 

1390 REM ******************** 

1400 REM RANDOM 

1410 AX = INT ( RND (1) * BR) 

1420 UX = INT ( RND (1) * DE) 

1430 HPLOT AX.UX 

1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 

1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 
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1560 RETURN 

1570 REM ******************** 
1580 REM FACE 
1590 M$ = MID$ (M$,4) 

1600 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,3) 

1610 NUM = VAL (M$) 

1620 Y = INT ( (NUM + 11.25) / 22.5) * 22 
.5 



1630 


IF 


Y 


= 


OR Y = 360 THEN UP = 


AC = 










1635 


IF 


Y 




22.5 THEN UP = - 2 : AC = 


1640 


IF 


Y 


= 


45 THEN UP = - 2:AC = 2 


1645 


IF 


Y 




£ "7 K TUPM TTP — 1 t AP — 

O/.J ItlliJN Ur = — x . AVj — 


1650 


IF 


Y 




90 THEN UP = 0:AC = 2 


1655 


IF 


Y 




112 THEN UP = IsAC = 2 


1660 


IF 


Y 




135 THEN UP = 2:AC = 2 


1665 


IF 


Y 




157.5 THEN UP = 2:AC = 1 


1670 


IF 


Y 




180 THEN UP = 2: AC = 


1675 


IF 


Y 




202.5 THEN UP = 2 : AC = . 


1680 


IF 


Y 




225 THEN UP = 2:AC = - 


1685 


IF 


Y 




247.5 THEN UP = 1 : AC = 


1690 


IF 


Y 




270 THEN UP = 0:AC = - 


1695 


IF 


Y 




292.5 THEN UP = - 1 : AC 


2 

1700 


IF 


Y 




315 THEN UP = - 2:AC = 


1705 


IF 


Y 




337.5 THEN UP = - 2:AC 


1 

1710 


RETURN 




1720 


REM 


********************* 


1730 


REM 


INITIALISE 


1735 


HGR 


:BC = 0:FC = 3 


1740 


HOME 






1750 


COLOR= 


3 


1770 


BR 




279 


1780 


DE 




191 


1790 


BR 




BR 


- 1 



1800 DE = DE - 3 

1810 UP = - 2:AC = 0: REM STARTS FACIN 
G UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 
1830 FOR XP = 1 TO 20: PRINT : NEXT XP 
1920 RETURN 
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10 REM CONNECT FOUR 

12 REM APPLE IIE/IIC VERSION 

15 REM A. W. PEARSON 

20 GOSUB 8020 

30 HOME 

40 VTAB 8: HTAB 14: PRINT "CONNECT FOUR" 
50 GOSUB 5000 
70 VTAB 12 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 ^PRINT "1 AND 8, ENTER FOR A NEW GAM 

100 FOR F = 1 TO 1000: NEXT F 
110 DIM A$(10,10) ,B(10,2) 
120 FLAG = 

140 C$ = "*":H$ = REM *=COMPUTER, @ 

=PLAYER 
150 FOR F = 1 TO 8 
160 B(F,1) = 6 
170 NEXT F 
180 FOR F = 1 TO 6 
190 FOR G = 1 TO 8 
200 A$(F,G) = "." 
210 NEXT G 
220 NEXT F 

230 REM ************************* 
240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINT : PRINT "YOUR MOVE..." 

270 INPUT A 

280 IF A = THEN RUN 

290 IF A < 1 OR A > 8 THEN 270 

300 L = 

310 IF A$(L + 1,A) < > "." OR L = 6 THE 
N 340 
320 L = L + 1 
330 GOTO 310 
340 IF L = THEN 270 
350 A$(L,A) = H$ 
360 B(A,1) = B(A,1) - 1 
370 GOSUB 430 
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380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************ 

420 REM PRINT BOARD 

430 HOME 

435 P = 200:D = 50: GOSUB 8000 

440 FOR F = 1 TO 6 

450 FOR G = 1 TO 8 

460 PRINT A$(F,G); 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG = 1 THEN PRINT "I 
HAVE WON!!": GOSUB 5200: END 

530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 

560 PRINT "MY MOVE. . ." 

570 MV = 

580 FOR F = 1 TO 8 

590 B(F,2) = 

600 NEXT F 

610 FOR F = 1 TO 8 

620 FOR X = - 1 TO 1 

630 FOR Y = - 1 TO 1 

640 IF B(F.l') = THEN 680 

650 IF A$(B(F,1) + X,F + Y ) = "" OR A$(B 
(F,l) + X,F + Y) = "." THEN 680 

660 IF A$(B(F,1) + X,F + Y) = H$ THEN G 
OSUB 810 

670 IF A$(B(F,1) + X,F + Y) = C$ THEN G 
OSUB 910 
680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 PC = 
720 FOR F = 1 TO 8 

730 IF B(F,2) > PC THEN PC = B(F,2):N = 

F 
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740 NEXT F 

750 A$(B(N,1),N) = C$ 

760 B(N,1) = B(N,1) - 1 

770 N = 

780 PC = 

790 RETURN 

800 REM ************************* 
810 MV = 2 
820 Ml = MV 

830 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= H$ THEN MV = MV + 10 

840 IF A$(B(F,1) - X,F - Y) = H$ THEN MV 
= MV + 20 

850 IF MV < > Ml + 10 THEN 870 
860 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= H$ THEN MV = MV + 1000 
870 B(F,2) = B(F,2) + MV 
880 Ml = 
890 RETURN 

900 REM ************************** 
910 MV = 2 
920 Ml = MV 

930 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= C$ THEN MV = MV + 9 
940 IF A$(B(F,1) - X,F - Y) = C$ THEN MV 
= MV + 20 

950 IF MV < > Ml + 9 THEN 970 
960 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= C$ THEN MV = MV + 2000:FLAG = 
1 

970 B(F,2) = B(F,2) + MV 

980 RETURN 

5000 P = 10:D - 25 

5010 GOSUB 8000 

5020 P = P + 10 

5030 IF P < 250 THEN GOTO 5010 
5040 GOSUB 8000 
5050 P = P - 10 

5060 IF P > 10 THEN GOTO 5040 

5070 RETURN 

5200 P = 200:D = 25 

5210 FOR TD = 1 TO 5 

5220 GOSUB 8000 
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5230 NEXT TD 
5240 RETURN 
5250 NEXT TL 
5260 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 



196 



QUEVEDO CHESS MACHINE / Apple He version 

10 REM QUEVEDO CHESS MACHINE 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1510: REM INITIALISE 
30 GOTO 60 

40 GOSUB 1320: REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1120: REM ACCEPT HUMAN MOVE 
80 GOTO 40 
90 END 

100 REM ************** 

110 REM COMPUTER MOVES 

120 IF QUIT = 1 THEN 1080 

130 Wl = WK 

140 REM ******** 

150 REM MOVE ONE 

160 MOVE = 1 

170 KM = INT (BK / 10) 

180 RM = INT (R / 10) 

190 IF ABS (KM - RM) > 3 THEN 330 

200 A(R) = 46 

210 X = INT (BK / 10):Y = INT (R / 10) 

220 IF X > Y THEN 270 

230 IF A (R - 10) < > 46 THEN 270 

240 IF A(R - 19) = BK OR A(R - 21) = BK 
OR A(R - 20) = BK THEN 270 

250 IF A ( R - 11) = BK OR A(R - 9) = BK T 
HEN 270 

260 R = R - 10: GOTO 300 

270 IF A(R + 10) < > 46 THEN A ( R ) = R: 
GOTO 330 

280 IF A(R + 19) = BK OR A(R + 21) = BK 
OR A ( R + 20) = BK THEN A(R) = R 
: GOTO 330 
290 R = R + 10 
300 A(R) = ASC ("R") 
310 RETURN 
320 REM ******** 

330 REM MOVE TWO 

340 MOVE = 2 

350 KM = BK - 10 * KM 
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360 RM = R - 10 * RM 

370 IF ABS (KM - RM) < 2 THEN 480 
380 A(R) = 46 

390 IF R > 11 THEN IF (A(R - 12) = BK 
R A(R - 2) = BK OR A(R + 8) = B 
K) THEN A(R) = R: GOTO 480 

400 IF R > 11 THEN IF (A(R - 1 ) = BK OR 

A(R - 11) = BK OR A(R + 9) = B 
K) THEN A(R) = R: GOTO 480 

410 Y = BK - 10 * INT (BK / 10) 

420 Z = R - 10 * INT (R / 10) 

430 IF (Z = 1 OR Y > Z) AND A(R + 1) = 4 
6 THEN R = R + 1 : GOTO 450 

440 R = R - 1 

450 A(R) = ASC ("R") 

460 RETURN 

470 REM ********** 

480 REM MOVE THREE 

490 MOVE = 3 

500 WM = WK .- 10 * INT (WK / 10) 

510 BM = BK - 10 * INT (BK / 10) 

520 IF ABS (WM - BM) < 3 THEN 600 

530 IF A(WK - 1) < > 46 OR A(WK - 18) = 

BK OR A(WK - 2) = BK OR A(WK + 

8) = BK THEN 610 
540 IF A(WK - 11) = BK OR A(WK + 9) = BK 
OR A(WK - 22) = BK THEN 610 
550 A(WK) = 46 
560 WK = WK - 1 
570 A(WK) = ASC ("K") 
580 RETURN 

590 REM ************************ 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z = ABS ( INT (BK / 10) - INT (WK / 

10)) 

620 IF Z = THEN 950 

630 IF 2 * INT (Z / 2) = Z THEN 790 
640 REM ********* 
650 REM MOVE FOUR 
660 MOVE = 4 
670 A(R) = 46 

680 IF A ( R - 10) < > 46 THEN 720 



198 



Apple lie 



690 IF A(R - 9) = BK OR A ( R - 11) 
HEN 720 

700 IF A(R - 19) = BK OR A(R - 21) 
OR A ( R - 20) = BK THEN 720 

710 R = R - 10: GOTO 760 

720 IF A ( R + 10) < > 46 THEN A(R) 
GOTO 790 

730 IF A ( R + 19) = BK OR A ( R + 21) 
OR A(R + 20) = BK THEN A(R) = ASC 
("R"): GOTO 790 

740 IF A ( R + 11) = BK OR A ( R + 9) 
HEN A ( R ) = ASC ("R"): GOTO 790 

750 R = R + 10 
760 A(R) = ASC ("R") 
770 RETURN 
780 REM ********* 
790 REM MOVE FIVE 
800 MOVE = 5 
810 J = INT (BK / 10) 
820 K = BK - 10 * J 
830 L = INT (WK / 10) 
840 M = WK - 10 * L 

850 Z = 10: IF J < L THEN Z = - 10 
860 X = 1 : IF K < M THEN X = - 1 
870 A(WK) = 46 
880 Wl = WK 
890 WK = WK + Z + X 
900 G = ABS (WK - BK) 
910 IF G = 1 OR G = 9 OR G = 10 OR G = 1 
1 THEN WK = W1:A(WK) = 75: GOTO 
950 

920 A(WK) = ASC ("K") 

930 RETURN 

940 REM ******** 

950 REM MOVE SIX 

960 MOVE = 6 

970 A(R) = 46 

980 IF R > 11 THEN IF A (R - 12) = BK OR 
A(R - 2) = BK OR A ( R + 8 ) = BK 

OR A(R - 1) < > 46 THEN 1070 
990 IF R > 11 THEN IF ( A ( R - 1 ) = BK OR 



= BK T 
= BK 

= R: 
= BK 

= BK T 
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A(R - 11) = BK OR A(R + 9) - B 

K) THEN 1070 
1000 Y = BK - 10 * INT (BK / 10) 
1010 Z = R - 10 * INT (R / 10) 
1020 IF (Z = 1 OR Y > Z) AND A(R + 1) = 
46 THEN R = R + 1 : GOTO 1040 
1030 R = R - 1 
1040 A(R) = ASC ("R") 
1050 RETURN 
1060 REM ****** 
1070 GOSUB 1320 
1080 PRINT : PRINT 
1085 FLASH 

1090 PRINT "I CONCEDE TO THE MASTER" 

1095 NORMAL 

1100 GOSUB 5000: END 

1110 REM ***************** 

1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER 'Q' TO QUIT 

1140 MOVE = 

1145 P = 100:D = 100: GOSUB 8000 

1150 PRINT ">> MOVE TO (LETTER, NO.) "; 

1160 INPUT G$ 

1170 IF G$ = "Q" THEN 1280 

1180 IF LEN (G$) < > 2 THEN 1160 

1190 Z = ASC (G$) 

1200 IF Z < 65 OR Z > 72 THEN 1160 

1210 X = VAL ( RIGHT$ (G$,l)) 

1220 IF X < 1 OR X > 8 THEN 1160 

1230 A(BK) = 46 

1240 BK = 10 * (Z - 64) + X 

1250 IF A ( BK ) = ASC ("R") THEN QUIT - 1 

1260 A(BK) = ASC ("$") 

1270 RETURN 

1280 PRINT : PRINT 

1290 INVERSE : PRINT "THANKS FOR THE GAM 
E" 

1295 P = 75:D = 150: GOSUB 8000 
1300 END 

1310 REM *********** 

1320 REM PRINT BOARD 

1325 P = 200:D = 50: GOSUB 8000 

1330 HOME 
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1340 PRINT : PRINT 

1350 IF MOVE > THEN PRINT "I USED MOV 
E ";MOVE 
1360 IF MOVE = THEN PRINT 
1370 PRINT : PRINT 
1380 PRINT TAB ( 10) "ABCDEFGH" 
1390 FOR J = 8 TO 1 STEP - 1 
1400 PRINT TAB ( 8)J;" " ; 
1410 FOR K = 10 TO 80 STEP 10 
1420 PRINT CHR$ (A(J + K ) ) ; 
1430 NEXT K 
1440 PRINT " " ; J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB( 10) "ABCDEFGH" 
1480 PRINT : PRINT 
1490 RETURN 

1500 REM ************** 
1510 REM INITIALISATION 
1520 HOME 

1530 GOSUB 8020: REM INITIALISE SOUND 

1540 MOVE = 

1550 QUIT = 

1560 DIM A(130) 

1570 FOR J = 10 TO 80 STEP 10 

1580 FOR K = 1 TO 8 

1590 A(J + K ) = 46: REM ASCII OF "." 
1600 NEXT K 
1610 NEXT J 

1620 REM ** PLACE PIECES ** 

1630 REM BLACK KING - HUMAN 

1640 BK = INT ( RND (1) * 3) + 1 

1650 BK = 10 * BK + BK + INT ( RND (1) * 

5) 

1660 A(BK) = ASC ("$") 

1670 REM WHITE KING - COMPUTER 

1680 WK = INT ( RND (1) * 4) + 4 

1690 WK = 10 * WK + WI + INT ( RND (1) * 

2) 

1700 IF WK = BK THEN 1680 
1710 A(WK) = ASC ("K") 
1720 REM WHITE ROOK - COMPUTER 
1730 R = INT ( RND (1) * 4) + 4 
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1740 R = 10 * R + R + INT ( RND (1) * 2) 

1750 IF R = WK OR R = BK THEN 1730 

1760 IF ABS (R - BK) < 12 THEN 1730 

1770 A(R) = ASC ("R") 

1780 RETURN 

5000 P = 175:D = 50 

5010 FOR TL = 1 TO 5 

5020 GOSUB 8000 

5030 FOR TD = 1 TO 50: NEXT TD 
5040 NEXT TL 
5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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WASHINGTON D.C. / Apple He version 

10 REM WASHINGTON D.C, 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 1160: REM INITIALISE 

30 REM ********************* 

40 REM MAJOR CYCLE 

50 P = INT (P + (P * 273 / ML)) 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF GAME = 1 THEN HOME : GOTO 890 

130 GOTO 50 

140 REM ********************** 
150 REM PRINTOUT 

160 HOME :PZ = 50:DZ = 150: GOSUB 8000 
170 PRINT "PRESIDENT ";A$;":" 
180 PRINT "YOUR ADMINISTRATION HAS BEEN 
IN POWER FOR " ; Y + Z / 

4;" YEARS" 

190 PRINT " 



200 PRINT " STATE OF THE NATION 

!? 

210 PRINT " 



220 PRINT "POPULATION ";P 

230 PRINT "NO. UNEMPLOYED " ; INT ( U ) ; " 
"; INT (100 * U / P) ;"%" 

240 PRINT "CURRENT WAGES $ " ; WO ; " I NFL A 
TION "; INT (IP) ;"%" 

250 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M ";GE 

260 PRINT "UNEMPLOYMENT COST $M " ; INT ( 
10 * GU) / 10 

270 PRINT "INCOME FROM TAXES $M "; INT ( 
GI * 10) / 10 

280 PRINT "BUDGET SURPLUS (+) /DEFICIT( - ) 
$M "; INT (BD * 10) / 10 
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290 PRINT "GROSS DOMESTIC PRODUCT $M "; 
INT (GDP * 10) / 10 

300 IF Y + Z / 4 > .5 THEN PRINT "CHANG 
E IN LIVING STANDARD "; INT ((2 

* ( (RGDP / AGDP) * 100) - 100) / 3); 

"%" 

310 PRINT " 

it 

320 PRINT "PUBLIC INVESTMENT " ; Y ; " Q " ; Z 
;" $M " ; INT (IV * 10) / 10 
330 PRINT " 

340 PRINT "OK, PRESIDENT ";A$ 
350 INPUT "ENTER GOVERNMENT SPENDING $M 
";GE 

360 INPUT "ENTER COST OF WAGES $M ";WN 
370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF " 

380 PRINT : PRINT "IMMIGRATION THIS QUAR 
TER (Y/N)?" 
390 GET X$ 

400 IF X$ < > "Y" AND X$ < > "N" THEN 
390 

410 PRINT TAB( 20 ) "OK . . . " ; X$ 
420 FOR H = 1 TO 1000: NEXT H 
430 IF X$ < > "Y" THEN RETURN 
440 PRINT "HOW MANY IMMIGRANTS WILL YOU 
ALLOW INTO THE US?" 

450 INPUT M 
460 IF M < THEN 450 
470 P = P + M 
480 RETURN 

490 REM ************************** 
500 REM CALCULATIONS 
510 CN = CN + (CN * IP / 100) 
520 U = P * (GE + IV) / (CN * 10) + P * ( 
IP / 1000) 

530 GU = U * WN / ML: REM UNEMPLOYMENT C 
OST 

540 GI = (((P - U) * WN * .4) / ML): REM 
INCOME FROM TAXES 

550 BD = BD + GI - GU - GE: REM BUDGET D 
EFICIT 
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560 AGDP = AGDP * (1 + (IP / 100)) 

570 GDP = GE + IV + ((P - U) * WN / ML) 

580 RGDP m GDP * 440 / AGDP 

590 IP = ((GE + IV) / CN * .1 + (WN / WO) 

/ 100) * 100 

600 IV = (CN * 67) / (IP * IP) 
610 WO = WN 

620 Z = Z + 1: IF Z > 4 THEN Z = 1:Y = + 
1 

630 RETURN 

640 REM ************************* 
650 REM CHECK BUDGET DEFICIT 
660 IF BD > - 1000 THEN RETURN 
670 GAME = 1 
680 FLAG = 1 
690 RETURN 

700 REM ************************* 
710 REM CHECK STANDARD OF LIVING 
720 IF Y < .75 THEN RETURN 
730 IF INT ((2 * ( (RGDP / AGDP) * 100) 
- 100) / 3) > - 15 THEN RETURN 

740 GAME = 1 
750 FLAG = 2 
760 RETURN 

770 REM ************************** 

780 REM CHECK INFLATION RATE 

790 IF IP < 15 THEN RETURN 

800 GAME = 1 

810 FLAG = 3 

820 RETURN 

830 REM ************************** 
840 REM CHECK UNEMPLOYMENT 
850 IF INT (U * 100 / P) < 15 THEN RET 
URN 

860 GAME = 1 
870 FLAG = 4 
880 RETURN 

890 REM ************************** 
900 REM END OF THE GAME 
905 PZ = 200:DZ = 100: GOSUB 8000 
907 PZ = 100:DZ = 75: GOSUB 8000 
910 PRINT "PRESIDENT ";A$;", YOUR" 
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920 PRINT "ADMINISTRATION'S POOR ECONOMI 
C" 

930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 

940 IF FLAG = 1 THEN PRINT "BUDGET DEFI 
CIT" 

950 IF FLAG = 2 THEN PRINT "DROP IN THE 
STANDARD OF LIVING" 

960 IF FLAG = 3 THEN PRINT "RISE IN THE 
INFLATION RATE" 

970 IF FLAG = 4 THEN PRINT "RISE IN UNE 
MPLOYMENT" 

980 PRINT " AMONG OTHER THING 

S „ . „ " 

990 PRINT " 

I! 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

1010 PRINT "ADMINISTRATION IS SO BAD THE 
RE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN . = . YO 
U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 
IDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFICE 

ii 

1050 FOR H = 1 TO 1000: NEXT H 

1060 PRINT " 

»! 



1070 PRINT "YOU WERE PRESIDENT FOR ";Y + 

(Z * .25);" YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY ";P - 3 * 
ML 

1100 PRINT "THE UNEMPLOYMENT RATE BECAME 

" ; INT (U * 1000 / P) / 10;"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E "; INT (10 * IP) / 10;"%" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y "; INT ((2 * ( ( RGDP / AGDP) * 
100) - 100) / 3);"%" 
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1130 PRINT "AND THE BUDGET 
IT WAS $M" ; INT (10 

BD) / 10 



SURPLUS/DEFIC 
* 



1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

E 

1240 
1250 
1260 
1270 
1280 
1290 
CT 
1300 
1310 
1320 



INITIALIZATION 



1000 



END 
REM 
REM 
HOME 

GOSUB 8020 
ML = 1000 * 
P = 3 * ML 

U = P / 10: REM UNEMPLOYMENT 

IV = 236: REM INVESTMENT 

GE = 118: REM GOVERNMENT EXPENDITUR 

GU = 0: REM COST OF UNEMPLOYMENT 

GI = 0: REM INCOME FROM TAXES 

WN = 100: REM NEW WAGES 

WO = 100: REM OLD WAGES 

IP = 5: REM INFLATION PERCENT 

GDP = 440: REM GROSS DOMESTIC PRODU 

AGDP = 440: REM BASE YEAR GDP 
RGDP = 440: REM REAL GDP 
CN = 354: REM ECONOMIC CONSTANT (US 



ED THROUGHOUT SIMULATION) 



1330 
1340 
1350 
1360 
1370 
8000 
8010 

ETURN 
8020 

, 192 : 



Z = 1 : GAME = : FLAG = 
Y = 0: REM YEAR 

PRINT "ENTER YOUR LAST NAME" 

INPUT A$ 

RETURN 

REM SOUND ROUTINE 

POKE 10, PZ: POKE 11, DZ: CALL 768: R 



POKE 768,173 
POKE 771,136: 
8: POKE 773,4 
8030 POKE 774,198 
240: POKE 777, 
POKE 779, 



POKE 769 
POKE 772, 



,48: 
20 



POKE 775,11 
8: POKE 778,202: 
208: POKE 780,246 



POKE 770 



POKE 776 



8040 POKE 781,166: POKE 782,10: POKE 783 



76: POKE 784,0: 

786,96 
8050 RETURN 



POKE 785,3: POKE 
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10 REM STOCKMARKET 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 DIM S(5) ,N(5) ,P(5) ,D(5) 

50 S(l) = 1.49:S(2) = 1.99:S(3) = 2.49:S( 
4) _ 2.99:S(5) = 3.49 

60 N(l) = 2000:N(2) = 1500:N(3) = 1200:N( 
4) = 1000:N(5) = 800 

70 BB = 265:TV = 15000:QQ = 15000:DAY = 1 

80 PRINT : PRINT "ENTER YOUR GOAL FOR TH 
IS SIMULATION," 

90 PRINT TAB( 8)"$16,000 TO $100,000" 

100 INPUT GOAL 

110 IF GOAL < 16000 THEN PRINT "TOO LOW 
!": GOSUB 5000: GOTO 80 

120 IF GOAL > 100 * 1000 THEN PRINT "TO 
HIGH!": GOSUB 5000: GOTO 80 

130 REM ******************* 

140 REM MAJOR LOOP 
150 FOR C = 1 TO 5 

160 REM ADJUST THE 55 IN THE NEXT LINE 
TO MODIFY THE GAME; 80 VERY HAR 
D , 30 VERY EASY 
170 D(C) = INT' ( RND (1) * 55) + 1 
180 P(C) = INT ( RND (1) * (100 - D(C))) 
+ 1 

190 NEXT C 
200 GOSUB 230 
210 GOTO 460 

220 REM ******************** 
230 REM PRINT OUT 
240 HOME 

250 PRINT " 

_n 

255 GOSUB 5200 

260 PRINT "DAY "DAY" YOUR GOAL IS 

$"GOAL 

270 PRINT " 

. ii 

280 PRINT "COMPANY NUMBER:" 
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290 PRINT TAB( 2)1; TAB ( 9)2; TAB ( 16)3 
; TAB( 25)4; TAB ( 32)5 
295 PRINT 

300 PRINT "CHANCE OF INCREASE (%):" 
310 PRINT TAB( 2)P(1); TAB ( 9)P(2); TAB 
( 16)P(3); TAB ( 25)P(4); TAB ( 3 
2)P(5) 
315 PRINT 

320 PRINT "CHANCE OF DECREASE (%):" 
330 PRINT TAB( 2)D(1); TAB ( 9)D(2); TAB 
( 16)D(3); TAB ( 25)D(4); TAB ( 3 
2)D(5) 
335 PRINT 

340 PRINT "CURRENT VALUE PER SHARE:" 
350 PRINT "$"; INT (S(l) * 100) / 100; T 
AB( 8)"$"; INT (S(2) * 100) / 1 
00; 

360 PRINT TAB ( 15)"$"; INT (S(3) * 100) 
/ 100; TAB( 23)"$"; INT (S(4) * 
100) / 100; 

370 PRINT TAB ( 30)"$"; INT (S(5) * 100) 
/ 100 .... 

375 PRINT 

380 PRINT "NO. OF SHARES HELD:" 
390 PRINT TAB( 2)N(1); TAB ( 9)N(2); TAB 
( 16)N(3); TAB ( 24)N(4); TAB ( 3 
DN(5) 
395 PRINT 

400 PRINT "BANK $"; INT (BB)" TOTAL WORT 
H $"; INT (TV) 
410 PRINT " 



420 IF TV > GOAL THEN PRINT "YOU'VE HIT 
YOUR FINACAIL GOAL!": GOSUB 55 

00: END 
430 RETURN 
440 REM 

450 REM ** SELL ** 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 
S (Y/N)?" 
470 GET A$ 

480 IF A$ < > »Y" AND A$ < >. "N" THEN 
470 
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490 IF A$ = "N" THEN 690 
500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL? "; 
520 GET A$ 

530 IF A$ < "1" OR A$ > "5" THEN 520 

540 C = VAL (A$) 

550 PRINT " OK ";C 

560 PRINT "HOW MANY OF ";C;" TO SELL "; 
570 INPUT N 

580 IF N > N(C) THEN PRINT "YOU DON'T H 
AVE THAT MANY!": GOSUB 5000: GOTO 
570 

590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 

610 BB = BB + S(C) * N: REM ADD VALUE TO 

BANK 

620 N(C) = N(C) - N: REM SUBTRACT NO. SO 
LD 

630 TV = 0: REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C = 1 TO 5 

660 TV = TV + N(C) * S(C) 

670 NEXT C 

680 TV = TV + BB: REM ADD IN BANK BALANC 

E 

690 GOSUB 230 

700 REM ************************* 
710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 
( Y/N) ?" 
730 GET A$ 

740 IF A$ < > "Y" AND A$ < > "N" THEN 
730 

750 IF A$ = "N" THEN 890 
760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY? "; 
780 GET A$ 

790 IF A$ < "1" OR A$ > "5" THEN 780 

800 C = VAL (A$) 

810 PRINT " OK ";C 

820 PRINT "PIOW MANY OF ";C;" TO BUY "; 
830 INPUT N 

840 IF N * S(C) > BB THEN PRINT "YOU DO 
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N'T HAVE ENOUGH MONEY!": GOSUB 
5000: GOTO 830 
850 REM ************************** 
860 REM ADJUST FIGURES AFTER BUY 
870 BB = BB - S(C) * N 
880 N(C) = N(C) + N 
890 TV = 
900 FOR C = 1 TO 5 
910 TV = TV + N(C) * S(C) 
920 NEXT C 
930 TV = TV + BB 
940 GOSUB 230 

950 REM ************************** 

960 REM MODIFY ALL INDICATORS 

970 TV = 

980 FOR C = 1 TO 5 

990 K = INT ( RND (1) * 100) + 1 

1000 IF K < P(C) THEN S(C) = S(C) * (1 + 

(P(C) / 1000)) 

1010 K = INT ( RND (1) * 100) + 1 

1020 IF K < D(C) THEN S(C) = S(C) / (1 + 

(D(C) / 1000)) 

1030 TV = TV + (S(C) * N(C)) 

1040 NEXT C 

1050 TV = TV + BB 

1060 QQ = QQ * 1.005 

1070 W = (TV * 100 / QQ) - 100 

1080 IF W = THEN W = .1 

1090 W = W + 6 

1100 IF W < 1 THEN W = 1 

1110 IF W > 15 THEN W = 15 

1120 RESTORE 

1130 FOR T = 1 TO W 

1140 READ A$ 

1150 NEXT T 

1160 PRINT 

1170 REM ********************* 

1180 REM GIVE RATING, START NEW ROUND 

1190 PRINT "YOUR RATING AFTER THAT ROUND 

OF" 

1200 PRINT "TRADING IS '";A$;"*" 

1210 PRINT : PRINT TAB( 5)"<PRESS SPACE 

BAR TO CONTINUED' 
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1220 GET A$: IF A$ < > " " THEN 1220: R 
EM NOTE SPACE BETWEEN QUOTE MA 
RKS 



1230 


DAY = 


DAY + 1 


1240 


GOTO 


150 


1250 


DATA 


"HOPELESS", "VERY, VERY, POOR" 


1260 


DATA 


"TERRIBLE" , "AWFUL" , "BAD" 


1270 


DATA 


"VERY ORDINARY", "AVERAGE" 


1280 


DATA 


"REASONABLE", "A LITTLE ABOVE 


AVERAGE" 




1290 


DATA 


"FAIRLY GOOD", "GOOD", "VERY G 


OOD" 






1300 


DATA 


"GREAT" , "EXCELLENT" , "SUPERLAT 


IVE" 






5000 


P = 50 


:D = 100 


5010 


GOSUB 


8000 


5020 


RETURN 


5200 


P = 150:D = 200 


5210 


GOSUB 


8000 


5220 


RETURN 


5500 


P = 250:D = 5 


5510 


GOSUB 


8000 


5520 


P = P 


- 10 


5530 


IF P 


> 10 THEN GOTO 5510 


5540 


RETURN 


8000 


REM 


SOUND ROUTINE 


8010 


POKE 


10, P: POKE 11, D: CALL 768: RET 


URN 






8020 


POKE 


768,173: POKE 769,48: POKE 770 


,192: 


POKE 771,136: POKE 772,20 



8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM DETROIT CITY 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1640: REM INITIALIZE 
30 GOTO 110 

40 MT = MT + 1: REM COUNTS MONTHS 

50 GOSUB 650 

60 IF TP > 200 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 
80 GOSUB 1010 

90 IF A$ = "Y" THEN PRINT "OK, CHIEF" :P 
Z = 50:D = 250: GOSUB 8000: END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T = 1 TO 1000: NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
(Y/N)?" 
150 GOSUB 1010 
160 IF A$ = "Y" THEN 1080 
170 IF SF = 1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
(Y/N)?" 

190 GOSUB 1010 

200 IF A$ = "Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE ": 
HE 

230 NE = NE + HE: IF HE > THEN 260 
240 INPUT "HOW MANY EMPLOYEES TO FIRE "; 
HE 

250 N = NE - HE 
260 GOSUB 650 

270 PI = AS: REM SET PI EQUAL TO OLD PRI 
CE 

280 INPUT "WHAT IS YOUR SELLING PRICE "; 
AS 

290 REM NEXT LINE REJECTS TOO BIG A CHA 
NGE IN SELLING PRICE 
300 IF ABS (PI - AS) > 2500 THEN PRINT 
"TOO BIG A CHANGE FOR THE MARK 
ET": GOTO 280 
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310 HOME 

320 PRINT : PRINT : PRINT 

330 MI = INT ( RND (1) * 4000) + 48 * 10 
00: REM THIS MONTH'S SALES BY 
INDUSTRY 

340 C = -C + 1: REM COUNTS NUMBER OF MONT 
HS 

350 IF C < 3 THEN 470 

360 M = INT ( RND (1) * 10 + 1) / 4: REM 

INFLATION 
370 HOME 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " ■ M • "%" 

390 'PRINT "AVERAGE WAGES BILL WILL NOW R 
ISE TO" 

400 AW = (AW * M / 100) + AW 
410 PRINT TAB( 8)"$"; INT (AW)" PER EMP 
LOYEE" 

430 PRINT : PRINT TAB( 12)"ANY KEY TO C 
ONTINUE" 
440 GET V$ 

450 FA = (FA * M / 100) + FA 
460 C = 

470 Y(l) = NE * 15 / 12: REM SALES BASED 
ON NUMBER OF EMPLOYEES 

480 Y(2) = (100 - AS / FA) * MI / 100: RE 
M SALES BASED ON INDUSTRY SALE 
S 

490 REM NEXT LINES SET LOWEST FIGURE FR 
OM Y(1),Y(2),M(5) EQUAL TO Y(3) 

500 IF Y(l) < Y(2) AND Y(l) < M(5) THEN 
Y(3) = Y(l): GOTO 540 

510 IF Y(2) < Y(l) AND Y(2) < M(5) THEN 
Y(3) = Y(2): GOTO 540 

520 Y(3) = M(5) 

530 REM NEXT LINES DETERMINE MONTHLY SA 
LES 

540 IF ABS (PI - AS) < 501 THEN Y(3) = 
3.6 * Y(3) / 3 
' 550 IF Y(3) > M(5) THEN Y(3) = Y(3) - 19 
75: GOTO 550 

560 MC = (MC * M / 100) + MC 

570 EF = Y(3) / M(5) * 100: REM EFFICIEN 
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CY % AS SALES DIVIDED BY TOTAL 
OUTPUT 

580 AC = (MC * ( ABS (85 - EF) / 3) / 100 
) + MC : REM AVERAGE COST PER V 
EHICLE 

590 MP = ((Y(3) * (AS - AC)) - (NE * AW / 
12)): REM MONTHLY PROFIT 
600 MP = INT (MP / (100 * 1000)) 
610 TP = TP + MP / 10: REM TOTAL PROFIT 
IN MILLIONS 
620 M = 
630 GOTO 40 

640 REM *********************** 
650 REM REPORT PRINTOUT 
660 HOME 

665 PZ = 100:DZ = 100: GOSUB 8000 
670 PRINT "INDUSTRY SALES ";MI;" IN MONT 
H " ;MT 

680 IF MT > THEN PRINT "YOUR SALES: " 

; INT (Y(3)); ,? ("; INT (Y(3) * 

1000 / MI) / 10;"% OF TOTAL)" 

690 PRINT " = 

__n 

700 PRINT "YOU HAVE " ; NE ; " EMPLOYEES" 
710 PRINT "AVERAGE WAGES ARE $"; INT (AW 

) 

720 PRINT " OR $M "; INT (AW * NE / (100 
* 1000) / 12) / 10;" PER MONTH 

1! 

730 PRINT " — 

ti 

740 IF MT = THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS $ 
"; INT (AC) 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$"; INT (AS) 

770 PRINT "SO THE AVERAGE PROFIT IS $"; 
INT (AS - AC) 

780 PRINT "OR $M "; INT ((AS - AC) * Y(3 
) / (100 * 1000)) / 10;" PER MO 
NTH" 

790 PRINT " 

it 
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800 PRINT "PROFIT FOR THE MONTH IS $M "; 

MP / 10 

810 PRINT "& TOTAL PROFIT TO DATE IS $M 

"; INT (TP * 10) / 10 

820 PRINT " > 

it 

830 RETURN 

840 REM ******************** 
850 REM MONTH REPORT 
860 HOME 

865 PZ = 150:DZ = 100: GOSUB 8000 

880 PRINT " — 



890 


PRINT 


"MAXIMUM 


MONTHLY 


OUTPUT 






900 


PRINT 


TAB( 3) 


"FACTORY 


1: 




INT 


(M( 


1)) 
















910 


PRINT 


TAB( 3) 


"FACTORY 


2: 




INT 


(M( 


2)) 














(M( 


920 


PRINT 


TAB( 3) 


"FACTORY 


3: 


INT 


3)) 
















930 


IF SF 


= 1 THEN 


960 










940 


PRINT 


TAB( 3) 


"FACTORY 


4: 


I! . 

> 


INT 


(M( 


4)) 
















950 


PRINT 


t! 













It 



960 PRINT "TOTAL OUTPUT IS "; INT (M(5)) 

970 PRINT " 

" 

980 PRINT "EFFICIENCY LEVEL IS " ; INT (E 
F) ; "%" 
990 RETURN 

1000 REM ********************* 
1010 REM GET REPLIES 
1020 GET A$ 

1030 IF A$ < > "Y" AND A$ < > "N" THEN 
1020 

1040 PRINT TAB( 22)A$ 

1050 FOR J = 1 TO 500: NEXT J 

1060 RETURN 

1070 REM ********************* 

1080 REM INCREASE OUTPUT? 

1090 IF M(4) = THEN X = 15: GOTO 1110 

1100 X = 18 
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1110 PRINT "IT WILL COST $M " ; X ; " TO EXP 
AND" 

1120 PRINT TAB( 8)"0UTPUT BY 1%" 

1130 PRINT " 



1140 PRINT "HOW MANY % DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP: IF EP < OR EP > 100 THE 
N 1150 

1160 M(5) = 

1170 FOR T = 1 TO 4 

1180 M(T) = M(T) + M(T) * EP / 100 

1190 M(5) = M(5) + M(T) 

1200 NEXT T 

1210 TP = TP - EX * X 

1220 FOR T = 1 TO 500: NEXT T 

1230 GOTO 170 

1240 REM ********************** 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT $M 104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 
YOU SELL IT. . ." 

1280 PRINT "DO YOU WANT TO SELL (Y/N)?" 

1290 GOSUB 1010 

1300 IF A$ = "N" THEN 210 

1310 TP = TP + 104 

1320 SF m 1 

1330 M(5) = M(l) + M(2) + M(3) 
1340 M(4) = 
1350 GOTO 170 

1360 REM ********************* 

1370 REM CHECK ON LOSSES 

1380 IF MP > THEN SA = 0: GOTO 1480 

1390 SA = SA + 1 

1400 IF SA > 11 THEN 1420 

1410 GOTO 1480 

1420 HOME :PZ = 150:D = 250: GOSUB 8000: 
PZ = 150:DZ = 250: GOSUB 8000 

1430 PRINT : PRINT "YOU JUST MADE YOUR T 
WELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW " 

1450 PRINT TAB( 6)"Y0UR EMPLOYMENT" 
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1460 

! ! " 
1470 
1480 
1490 
1500 

T, THE 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 

NY HAS 
1590 
MADE" 
1600 

RD" 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

LOYEES 
1690 

GE 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
5000 



PRINT TAB( 6)"IS HEREBY TERMINATED 
END 

IF TP > = - 250 THEN 1530 
HOME :PZ = 200:DZ = 250: GOSUB 8000 
PRINT : PRINT "UNDER YOUR MANAGEMEN 
COMPANY HAS" 

PRINT "LOST MORE THAN $M 250!!" 
GOTO 1450 

IF TP > 200 THEN 1570 
RETURN 

J^gjVJ *********************** 
REM SWEET SWEET SUCCESS!!! 
HOME : GOSUB 5000 

PRINT : PRINT "WELL DONE! THE COMPA 
MADE MORE" 

PRINT " THAN $M 200. YOU'VE BEEN 



PRINT " 



A MEMBER OF THE BOA 



FOR T = 1 TO 2000: NEXT T 
END 

REM *********************** 

REM INITIALIZATION 

HOME 

GOSUB 8020 
DIM M(5),Y(5) 
NE = 12000: REM STARTING NO. OF EMP 

AW = 22995: REM STARTING AVERAGE WA 

AC = 11100: REM COST PRICE/VEHICLE 
AS = 12000: REM SELLING PRICE 
MI = 50 * 1000:MC = 10100 
Y(3) = 12500 

MS = 25:EF = 77:FA = 160:SF = 0:MT = 

FOR J = 1 TO 5 
READ M(J) 
NEXT J 
RETURN 

DATA 8900,3250,2500,1625,16275 
PZ = 200:DZ = 50 
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5010 FOR TL = 1 TO 5 
5020 GOSUB 8000 

5030 FOR TH = 1 TO 50: NEXT TH 
5040 NEXT TL 
5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 1 1 , DZ : CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786, 96 
8050 RETURN 
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10 REM GRIDIRON 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

AO GOSUB 70 

50 GOTO 220 

60 REM ****************** 

70 . FOR X = 1 TO 2000: NEXT X 

80 RETURN 

100 PRINT A$;SA 

110 PRINT B$;S'B 

120 RETURN 

130 REM ********************** 
140 IF Z$ = A$ THEN Z$ = B$: RETURN 
150 Z$ = A$: RETURN 
170 PRINT " >PRESS ANY KEY<" 

180 GET M$ 

200 P = 100:D = 50: GOSUB 8000: PRINT TA 
B( 18)"0K": RETURN 
210 REM ********* 
220 REM INTIALISE 

230 DEF FN A(X) = INT ( RND (1) * X) + 
1 

240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

260 IF X < 1 OR X > 2 THEN 250 

270 IF X = 1 THEN VC = 1:A$ = "SILICON C 

OWBOYS ": GOTO 300 
280 PRINT "WHAT IS THE NAME OF THE HOME 

TEAM?" 

290 INPUT A$: IF A$ = "" THEN 290 
295 A$ = A$ + " " 

300 PRINT "AND THE NAME OF THE VISITING 
TEAM?" 

310 INPUT B$: IF B$ = "" THEN 310 
315 B$ = B$ + " " 
320 Z$ = A$:NU = 35 
330 HOME 

340 PRINT "THERE ARE "; INT (10 * (60 - 
(W / 4))) / 10;" MINUTES TO, GO" 
350 PRINT TAB ( 8)Z$;"T0 KICK OFF" 
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360 PRINT "YOU ARE ON YOUR OWN " ; NU ; " YA 
RD LINE" 

370 IF VC = 1 AND Z$ = A$ THEN GOSUB 70 
: GOTO 400 
380 PRINT "TO KICK OFF. . „" 
390 GOSUB 170 
400 A = FN A(20) + 40 
410 PRINT Z$;"HAVE. 
415 GOSUB 70 
420 FOR X = 1 TO A 

425 PX = INT (X / 3): IF PX < 1 THEN PX 
= 1 

430 PRINT TAB( PX) "KICKED " ; X ; " YARDS" 
440 NEXT X 
450 NU = NU + X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHT!" 

480 GOSUB 70 

490 A = FN A(30) + 10 

500 FOR X = 1 TO A 

505 PX = X / 5: IF PX < 1 THEN PX = 1 
510 PRINT TAB ( PX)"AND RETURNED ";X;" Y 
ARDS" 
520 NEXT X 

530 NU = ABS (100 - NU + X) 
540 GOSUB 140 

550 PRINT " 



560 PRINT "THE BALL IS DOWN ON" 
570 PRINT Z$"'S ";NU;" YARD LINE" 
580 IF Z$ = A$ AND VC = 1 THEN GOSUB 70 
: GOTO 600 
590 GOSUB 170 
600 TG = 10:DN = 0:SL = NU 
610 IF W = 60 OR W = 180 THEN 2010 
620 IF W = 120 THEN 2070 
630 IF W = 240 THEN 2140 
640 HOME 

650 PRINT LEFT$ (A$,6);" ";SA;" "; LEFT 
$ (B$,6);" ";SB 

660 PRINT INT (10 * (60 - (W / 4))) / 1 
0;" MINUTES TO GO" 

670 GOSUB 70 
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680 PRINT " 

ii 

690 PRINT Z$;"IN POSSESSION" 

700 PRINT TAB( A )DN ; " DOWN" 

710 PRINT TAB( 4)TG;" YARDS TO GO" 

720 PRINT " 

it 

730 PRINT "START AT ";SL;" YARD LINE" 

740 PRINT "NOW ON ";NU;" YARD LINE" 

750 PRINT 100 - NU;" YARDS TO TOUCHDOWN" 

760 PRINT " 

_ ii 

770 PRINT "ON THIS PLAY "; 
780 IF Z$ = A$ THEN PRINT A$;"CAN": GOT 
800 
790 PRINT B$;"CAN" 
800 PRINT "EITHER 1 - THROW" 
810 PRINT " 2 - CARRY" 

829 PRINT " OR 3 - PUNT" 

830 PT = 

840 IF Z$ = A$ AND VC = 1 AND DN < 3 THE 
N PT = 2: GOTO 900 

850 IF Z$ = A$ AND VC = 1 AND TG < 7 THE 
N PT = 2: GOTO 900 

855 IF Z$ = A$ AND VC = 1 AND DN > 2 THE 
N PT = 3: GOTO 900 

860 IF Z$ = A$ AND VC = 1 AND (100 - NU) 

< 31 THEN PT = 3: GOTO 900 

870 IF Z$ = A$ AND VC = 1 THEN PT = 1 : G 
OTO 900 

880 GET K$: IF K$ < "1" OR K$ > "3" THEN 
880 

890 PT = VAL (K$): PRINT TAB( 10)"0K "; 
PT 

900 GOSUB 70 
910 W = W + 1 
920 HOME 

930 PRINT Z$;'\ YOUR QUARTERBACK HAS" 

940 PRINT TAB( 8)"G0T THE BALL" 

950 PRINT " 

_ ii 

960 PRINT "WAIT FOR THE COUNT, ";Z$;'\" 

970 PRINT TAB( 8 ) "THEN HIT ANY KEY..." 
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980 1$ = "" 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E = 11 THEN 2340 

1020 PRINT " 



1030 ON PT GOTO 1050,1310,1590 

1040 REM *************************** 

1050 PRINT "YOU'VE THROWN " ; E * 5;" YARD 

s 

1060 PRINT TAB ( 4);"AND THE PLAY IS..." 

1070 A = FN A(8) 

1080 IF A = 1 THEN 1520 

1090 A = FN A(E + 1) 

1100 IF A = 1 THEN PRINT TAB ( 20)"... C 
OMPLETE": GOTO 1220 

1110 PRINT TAB ( 20)". . .INCOMPLETE" : DN = 
DN + 1 

1120 GOSUB 170 

1130 PRINT " 



1140 IF DN > 3 THEN 1160 
1150 GOTO 610 

1160 PRINT "THAT WAS YOUR FOURTH DOWN" 
1170 PRINT "AND YOU'VE LOST POSSESSION!! 

1! 

1180 DN = 0:TG = 10:NU = ABS (100 - NU) ; 
SL = NU 
1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
1220 GOSUB 170 

1230 NU = NU + (E * 5):TG = TG - (E * 5) 

1240 IF NU > 100 THEN 1800 

1250 IF TG < 1 THEN 1280 

1260 DN = DN + 1 : IF DN > 3 THEN 1160 

1270 GOTO 610 

1280 DN = 0:TG = 10:SL = NU 

1290 GOTO 610 

1300 REM ********************** 

1310 A = FN A(15) 

1320 IF A = 1 THEN 1510 

1330 E = A - 5 
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1340 IF E < THEN 1440 

1350 IF E = THEN E = 1: GOTO 1370 

1360 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU'VE GAINED ";E;" YARDS" 

1380 GOSUB 170 

1390 TG = TG - E:NU = ABS (NU + E):DN = 

DN + 1 

1400 IF NU > 100 THEN 1800 
1410 IF TG < 1 THEN 1280 
1420 IF DN > 3 THEN 1160 
1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1450 PRINT "CAUSED YOU TO LOSE "; ABS (E 
);" YARDS" 

1460 TG = TG - E:NU = NU + E : DN = DN + 1 

1470 GOSUB 170 

1480 IF DN > 3 THEN 1160 

1490 GOTO 610 

1500 REM ************************ 

1510 PRINT "BAD SNAP ... YOU ' VE" 

1520 PRINT "FUMBLED. . .AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU = 100 - NU : DN = 0:TG = 10:SL = NU 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM ************************* 
1590 PRINT "NICE PUNT. . ." 

1600 PRINT "YOU'VE KICKED ";E * 4;" YARD 
S" 

1610 NU = NU + E * E 

1620 IF NU > 100 THEN 1650 

1630 PRINT " 



1640 GOTO 460 

1650 A = FN A(3) 

1660 IF A > 1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOAL" 
1680 IF NU - E * 4 < 80 THEN NU = ABS ( 

100 - (NU - E * 4)): GOTO 1700 

1690 NU = 20 

1700 DN = 0:TG = 10:SL = NU 
1710 GOSUB 140 
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1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT " . . . AND SCORED!" 
1745 P = 50:D = 150: GOSUB 8000 
1750 IF Z$ = B$ THEN SB = SB + 3: GOTO 1 
770 

1760 SA = SA + 3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU = 35: GOTO 330 

1800 HOME 

1810 FOR X = 1 TO 5 

1820 PRINT TAB ( X * 2 ) "TOUCHDOWN ! !" 
1825 P = 25:D = 25: GOSUB 8000 
1830 NEXT X 

1840 IF Z$ = A$ THEN SA = SA + 6: GOTO 1 
860 

1850 SB = SB + 6 
1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 
1880 GOSUB 170 

1890 PRINT " 



1900 PRINT "THE BALL IS SNAPPED ... PREPAR 
E TO KICK!" 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E > 9 THEN PRINT "YOU MISSED":N 

U = 20: GOTO 1970 
1940 PRINT "YOU SCORED. . . " : NU = 35 
1950 IF Z$ = A$ THEN SA = SA + 1 : GOTO 1 

980 

1960 SB = SB + 1 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X = 1 TO 10 

2015 P = 200:D = 100: GOSUB 8000 

2020 PRINT TAB( 2 * X)"PERI0D OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 
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2060 GOTO 660 

2070 FOR X = 1 TO 10 

2080 PRINT TAB ( X * 2 ) "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 Z$ = B$ 

2120 GOSUB 170 

2130 NU = 35 :W « W + 2: GOTO 330 

2140 FOR X = 1 TO 10 

2150 PRINT TAB ( X * 2 ) "GAME OVER" 

2160 NEXT X 

2170 GOSUB 100 

2180 END 

2190 REM *********************** 

2200 E = : X = 10 

2210 IF Z$ = A$ AND VC = 1 THEN PRINT 

THIS ONE FOR ";A$: GOTO 2290 

2220 E=E+ 1 : X = X - 1 

2230 PRINT TAB ( E);E 

2240 FOR Y = 1 TO X * 1.5 

2250 I = PEEK ( - 16384) - 128: IF I > 

THEN 1$ = CHR$ (I) 

2252 POKE - 16368,0 

2255 IF 1$ < > "" THEN Y = X * 1.5 + 1 
RETURN 

2260 NEXT Y 

2270 IF E = 11 THEN RETURN 

2280 GOTO 2220 

2290 FOR E = 1 TO FN A(7) + 2 

2300 FOR J = 1 TO 60: NEXT J 

2310 PRINT TAB( E);E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE! ! " 

2350 PRINT "YOU'VE BEEN SACKED!!" 

2360 E = FN A(4) 

2370 IF E = 3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

2390 TG = TG + 5 : DN = DN + 1:NU = NU - 5 

2400 GOSUB 170 

2410 IF DN > 3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 
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2440 M = 0:NU = ABS (100 - NU + 5):SL = 

NU : TG =10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM TENNIS 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 AA = 0:BB = 0:T = 0:KA = 
50 XA = 0:YA = 0:ZA = 
60 XB = 0:YB = : ZB = 

70 DEF FN A(X) = INT ( RND (1) * X) + 

1 

80 INPUT "ONE HUMAN PLAYER OR TWO " ; A 
90 IF A < 1 OR A > 2 THEN 80 
100 IF A = 1 THEN A$ = "BJORNX":VC = 1 
110 IF VC = 1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E" 

130 INPUT "NAME OF FIRST PLAYER ";A$ 
140 IF LEN (A$) < 6 THEN A$ = A$ + " ": 
GOTO 140 

150 A$ = LEFT$ (A$,6) 

160 INPUT "NAME OF SECOND PLAYER ";B$ 
170 IF LEN (B$) < 6 THEN B$ = B$ + " ": 
GOTO 170 

180 B$ = LEFT$ (B$,6) 
190 S = 1:AA = 1:BB = 1 
200 HOME 

210 P$ = A$:R$ = B$ 

2 20 REM ##*#*#****##*******### 

230 IF P$ = A$ THEN R$ = B$ 
240 IF P$ = B$ THEN R$ = A$ 
250 PRINT P$;" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 

t! 

270 PRINT " OR 2 - SLOW 

tt 

280 IF P$ = A$ AND VC = 1 AND SC = THE 
N KB = 1: GOSUB 1720: GOTO 330 

290 IF P$ = A$ AND VC = 1 AND SC = 1 THE 
N KB = 2: GOSUB 1720: GOTO 330 

300 K$ = "":K = PEEK ( - 16384) - 128: I 
F K > THEN K$ = CHR$ (K) : POKE 
- 16368,0 
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310 IF K$ < "1" OR 
320 KB = VAL (K$) 



330 

IT 1 S 

340 

350 

360 

370 

380 

00 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 

YOUR 



PRINT 
A »; 
IF KB 
IF KB 
PRINT 
GOSUB 
IF KB 



K$ > "2" THEN 300 
PRINT TAB( 6)KB; TAB ( 10)"> 



= 1 THEN 
= 2 THEN 
" SERVE. . 
1720 

= 1 THEN 



EB = FN A(8) 
IF EB = 1 THEN 
IF EB = 3 AND S 
IF EB = 3 AND S 
GOTO 670 
REM ********** 

HOME : PRINT 
PRINT TAB( 8)" 
GOSUB 1720 
SC = 
IF P$ = A$ THEN 
GOTO 1150 
REM ********** 

HOME : PRINT 
PRINT TAB( 12) 
PRINT TAB( 8)" 
GOSUB 1720 
SC = 1 
GOTO 230 
REM ********** 

HOME : PRINT 
PRINT TAB( 12) 
PRINT TAB( 9)" 
GOSUB 1720 
SC = 
IF P$ = A$ THEN 
GOTO 1140 
REM ********** 

SC = 
HOME : PRINT 
POKE - 16368,0 
PRINT R$;'\ THE 
COURT" 



PRINT "FAST"; 
PRINT "SLOW" ; 



EB = FN A(3) : GOTO 4 
450 

C = THEN 520 
C = 1 THEN 590 

« » » o ACE b » „ 
1140 

a * • a OUT • • • • 

. . .SECOND SERVE. . . " 

*^<^:^c^:******^!>}:5!s** 
" OUT " 

. . . .DOUBLE FAULT " 

1150 

**************** 
BALL IS": PRINT "IN 
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710 PRINT " » 

720 IF R$ = A$ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALL., 

it 

750 X = 4 * FN A(3):Y = X 
760 GOSUB 1720 
770 E = 5 

780 PRINT TAB( 2 * (11 - E));E 
790 Y = Y - 1 

800 S$ = "":S1 = PEEK ( - 16384) - 128: 
IF SI > THEN S$ = CHR$ (S): POKE 
- 16368,0 

810 IF S$ < > AND E = THEN 890 

820 IF S$ < > "" THEN 990 

830 IF Y > THEN 790 

840 E = E - 1:Y = X 

850 IF E < - 1 THEN 990 

860 IF E = - 1 AND R$ = A$ AND VC = 1 T 
HEN 890 
870 GOTO 780 

880 IF KB = 1 THEN EA = FN A(2): GOTO 1 
000 

890 EA = FN A(4): GOSUB 5000 

900 IF E = AND R$ = A$ AND VC = 1 THEN 

EA = FN A(8) 

910 IF EA = 1 THEN 940 

920 IF R$ = A$ THEN R$ - B$: GOTO 670 

930 R$ = A$: GOTO 670 

940 PRINT R$;", YOU.VE HIT THE BALL" 
950 PRINT TAB( 8)"0UT OF PLAY..." 
960 GOSUB 1720 

970 IF R$ = A$ THEN R$ = B$: GOTO 1150 

980 GOTO 1140 

990 EA = FN A(4) 

1000 IF EA = 1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT "IT WAS IN... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF R$ = A$ THEN R$ = B$: GOTO 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
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1080 GOSUB 1720 

1090 PRINT " IT WAS OUT.. WELL LEFT" 
1100" GOSUB 1720 

1110 IF R$ = A$ THEN R$ = B$: GOTO 1140 
1120 GOTO 1150 

1130 REM ************************ 
1140 AA = AA + 1: GOTO 1160 
1150 BB = BB + 1 

1160 IF AA < 5 AND BB < 5 THEN 1230 

1170 IF (BB > 4 AND AA < 4) OR (BB > 4 A 
ND BB - AA > 1) THEN AA = 1:BB = 
1: GOTO 1500 

1180 IF (AA > 4 AND BB < 4) OR (AA > 4 A 
ND AA - BB > 1) THEN AA = 1:BB = 
1: GOTO 1440 

1190 ■ IF AA > 4 AND AA > BB THEN C$ = "AD 
V" :D$ = " " : GOTO 1320 

1200 IF (BB > 4 AND BB > AA) THEN D$ = " 
ADV" :C$ = " ": GOTO 1320 

1210 C$ = "{DEUCE":D$ = "(DEUCE": GOTO 13 
20 

1220 REM ************************* 

1230 RESTORE 

1240 FOR D = 1 TO AA 

1250 READ C$ 

12 60 NEXT D 

1270 RESTORE 

1280 FOR D = 1 TO BB 

1290 READ D$ 

1300 NEXT D 

1310 REM ************************* 
1320 HOME 



1340 
1350 
1360 
1370 
;ZA;" 



PRINT 
PRINT 
PRINT 
PRINT 

";C$ 
PRINT 

";D$ 



II 


SET 


SET SET" 


11 




ii 


11 


1 


2 3 GAME" 


A$;" 


";XA;" 


" . YA ; " " 


B$;" 


";XB;" 


" ; YB ; " 


ti 




ii 



;ZB;" 
1390 

1400 GOSUB 1720 

1410 IF T < > 1 THEN 230 
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1420 END 

1430 REM ************************** 

1440 HOME 

1445 GOSUB 5500 



1450 


PRINT "GAME TO " 


;A$ 










1460 


GOSUB 1720 












1470 


IF S = 1 THEN XA 


= XA 


+ 


1 


:C$ 


= "0": 


D$ = " 


0": GOTO 1560 












1480 


IF S = 2 THEN YA 


= YA 


+ 


1 


:C$ 


= "0" : 


D$ = " 


0": GOTO 1580 












1490 


IF S = 3 THEN ZA 


= ZA 


+ 


1 


sC$ 


= "0": 


D$ = " 


0": GOTO 1600 












1500 


HOME 












1505 


GOSUB 5500 












1510 


PRINT "GAME TO " 


;B$ 










1520 


GOSUB 1720 












1530 


IF S = 1 THEN XB 


= XB 


+ 


1 


:C$ 


= "0" : 


D$ = " 


0" : GOTO 1560 












1540 


IF S = 2 THEN YB 


= YB 


+ 


1 


:C$ 


= "0": 


D$ = " 


0": GOTO 1580 












1550 


IF S = 3 THEN ZB 


= ZB 


+ 


1 


:C$ 


= "0": 



D$ = "0": GOTO 1600 

1560 IF (XA > 5 AND XB < 5) OR (XA < 5 A 
ND XB > 5) THEN 1630 
1570 IF (XA > 5 AND XA - XB > 1) OR (XB 

> 5 AND XB - XA > 1) THEN 1630 

1580 IF (YA > 5 AND YB < 5) OR (YA < 5 A 
ND YB > 5) THEN 1630 
1590 IF (YA > 5 AND YA - YB < 1) OR (YB 

> 5 AND YB - YA > 1) THEN 1630 

1600 IF (ZA > 5 AND ZB < 5) OR (ZA < 5 A 
ND ZB > 5) THEN 1680 
1610 IF (ZA > 5 AND ZA - ZB > 1) OR (ZB 

> 5 AND ZB - ZA > 1) THEN 1680 
1620 GOTO 1640 

1630 S = S + 1 
1640 AA = 1:BB = 1 

1650 IF P$ = A$ THEN R$ = A$:P$ = B$: GO 
TO 1320 

1660 P$ = A$:R$ = B$: GOTO 1320 
1670 REM ********************** 
1680 T = 1 
1690 GOTO 1320 
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1700 
1710 
1720 
1730 
1740 



REM ********************** 
REM DELAY 

FOR M = 1 TO 1000: NEXT M 
RETURN 



DATA 



JlQlT II 



15' 



*30' 



'40' 



5000 PZ = 200:DZ = 50 
5010 GOSUB 8000 
5020 RETURN 
5500 PZ = 100:DZ = 50 
5510 FOR TL = 1 TO 3 
GOSUB 8000 
FOR TD = 1 TO 50 
NEXT TL 
RETURN 

REM SOUND ROUTINE 
POKE 10, PZ: POKE 1 1 , DZ 



NEXT TD 



POKE 769,48 
POKE 772,20 



5520 
5530 
5540 
5550 
8000 
8010 
ETURN 

8020 POKE 768,173: 
,192: POKE 771,136: 

8: POKE 773,4 
8030 POKE 774,198; 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 

14580 IF S = 2 THEN YA = YA + 1: 
:D$ = "0": GOTO 1580 



CALL 768: R 



POKE 770 



POKE 775,11: POKE 776 



POKE 783 



C$ = "0' 
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10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 
G * 1 

150 
AK * 

160 
ST * 

170 
ST * 

180 

) 

190 



REM GRAND PRIX 
REM APPLE IIE/IIC VERSION 
GOSUB 2200: REM INITIALIZE 
GOSUB 1190: REM CHOOSE TRACK 
REM *********************** 

REM MAJOR LOOP 

GOSUB 120: REM PRINTOUT 



REM 
REM 
REM 



ACCELERATION/CHECK 
ENGINE/BRAKES 
CORNER/POSITION 



280: 
450: 
500: 
60 

PRINTOUT 



GOSUB 
GOSUB 
GOSUB 
GOTO 
REM 
REM 
HOME 

PRINT "ENGINE TEMPERATURE 
0) / 10;" C. (MAX. 200)" 

PRINT "BRAKE TEMPERATURE 
10) / 10;" C. (MAX. 500) 

PRINT " DISTANCE COVERED 
10) / 10;" METERS" 

PRINT " 
100 / RR) / 100;" LAPS" 

PRINT "YOU'RE IN POSITION 



INT 



INT 



INT 



INT 



INT 



PRINT "- 



230 

P);" 

' 240 
PH" 
250 



PRINT "- 
ii 



(EN 
(BR 
(DI 
(DI 
(FP 



200 PRINT " CURRENT SPEED: "; INT (SP 

* 10) / 10;" KPH" 

210 PRINT " : "; INT (SP 

* 5.555) / 10;" METERS PER MOV 

E" 

220 PRINT " 

ii 



PRINT "CORNER APPROACHING "; INT (AP 
METERS" 

PRINT "RECOMMENDED SPEED: " ;C(C) ;" K 



260 RETURN 

270 REM ************************ 
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280 REM CHECK ACCELERATION AND FACTORS 
290 GET X$: IF X$ < > "Z" AND X$ < > " 
M" AND X$ < > " " THEN 290 
300 PRINT TAB( 12)"0K" 
310 X = 

320 IF X$ = "M" THEN X = SP / 15 

330 IF X$ = "Z" THEN X = - SP / 15 

340 NUM = NUM + 1: REM NUMBER OF MOVES 

350 SP = SP + X 

360 IF SP < THEN SP = 

370 TRAV = SP * .5555; REM DISTANCE TRA 
VELLED 

380 DIST = DIST + TRAV: REM TOTAL DISTAN 
CE TRAVELLED 

390 ENG = ENG + (X / 2) + .07: IF ENG < 7 
THEN ENG = 70 + RND (1) * 8: 
REM ENGINE TEMP 
400 IF X > THEN BRAK = BRAK * .9: REM 
BRAKE EMP FALLING; ACCELERATIN 
G 

410 IF X < 1 THEN BRAK = BRAK - (3 * X) 
- RND (1) * 3: REM BRAKE TEMP 
INCREASING; BRAKING 
420 IF BRAK < 8 THEN BRAK = 8 + RND (1) 
* 8 

430 RETURN 

440 REM *********************** 
450 REM CHECK ENGINE/BRAKE TEMP 
460 IF ENG > 200 THEN PRINT "YOUR ENGIN 
E HAS OVERHEATED": GOSUB 5000: GOTO 
830 

470 IF BRAK > 500 THEN PRINT "YOUR BRAK 
ES HAVE OVERHEATED": GOSUB 5000 
: GOTO 830 
480 RETURN 

490 REM ********************** 

500 REM CHECK CORNERING SPEED AND FIELD 
POSITION 

510 APP = APP - TRAV 

520 IF APP > THEN RETURN 

530 CRASH = 

540 IF SP > (C(C) * 1.125) THEN CRASH = 
1: GOTO 690 
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550 IF SP > (C(C) * 1.1) THEN GOTO 690 
560 PNT - PNT + 100 - ((C(C) * 1.1) - SP) 

: REM CORNERING POINTS 
570 NC = NC + 1: REM NUMBER OF CORNERS 
580 CP o 96 - (PNT / NC) : REM CORNERING 

POSITION 

590 AM = AM + A(C): REM AVERAGE NUMBER 
F MOVES ALLOWED 

600 RP = NUM - AM: REM RACING POSITION. 
YOUR MOVES MINUS AVERAGE MOVES 

610 FP = (CP + RP) / 2: REM FIELD POSITI 
ON IS AVERAGE OF CORNER & RACE 
POSITIONS 

620 IF FP < 1 THEN FP = 1 

630 C = C + 1 

640 IF C = WW THEN C - 1: REM LAP OVER 
650 APP = APP + D(C) 

660 IF LAP * QQ = AM THEN 910: REM RACE 
OVER 

670 RETURN 

680 REM ************************** 
690 REM CRASHED 
700 HOME 

710 PRINT "YOU CORNERED AT " ; INT (10 * 
SPEED) / 10;" KPH" 

720 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T " ; C ( C ) 

730 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRACK..." 
750 GOSUB 2330 

760 IF CRASH = 1 THEN GOSUB 5200: GOTO 
830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE R 

ACE" 

780 NUM = NUM + 10:SP = INT (2 * (C(C) / 
3) 

790 PNT = PNT + 50 
800 GOSUB 2330 
810 GOTO 570 

820 REM ************************* 

830 PRINT " AND CRASH! ! ! ! ! !" 
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840 PRINT " 

it 

850 PRINT "YOU ONLY COMPLETED "; INT (10 
* DIST) / 10;" METERS" 

860 PRINT "OR "; INT (DIST * 100 / RR) / 

100;" LAPS AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION "; INT 
(FP) 

880 PRINT " 

it 

890 GOTO 1050 

900 REM ************************ 

910 REM RACE OVER 

920 HOME 

930 EFLAG = 1 

940 FOR X = 1 TO 20 

950 PRINT TAB( X)"WELL DONE, ";A$;" !!" 

960 PRINT TAB( 21 - X)"WELL DONE ";A$;" 
! ! " 

970 NEXT X 

980 PRINT " 

I! 

990 PRINT "YOU MANAGED TO LAST OUT THE F 
ULL ";LAP; " LAP RACE. . ." 
1000 PRINT " 



1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION "; 
INT (FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITI 
ON ... " 
1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS "; IN 
T (DIST * 180 / NUM) / 100;" KP 
H" 

1060 GOSUB 2330 

1070 IF RP < 1 THEN RP = 1 

1080 IF CP < 1 THEN CP = 1 

1090 PRINT "YOU WERE "; INT ( ABS (RP)); 
"TH FASTEST ON STRAIGHTS," 

1100 PRINT "AND "; INT ( ABS (CP));"TH F 
ASTEST ON CORNERS." 
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1110 PRINT : PRINT "PRESS ' S' FOR SAME R 
ACE, 'N' FOR NEW RACE, 'E' T 
END" 

1120 GET 1$: IF 1$ < > "S" AND 1$ < > 
"N" AND 1$ < > "E" THEN 1120 
1130 IF 1$ = "E" THEN END 
1140 GOSUB 2240 
1150 RESTORE 

1160 IF 1$ = "S" THEN GOSUB 1490:LAP = 
L2AP: GOTO 60 

1170 IF 1$ = "N" THEN HOME : GOSUB 1250 
: GOTO 60 

1180 REM ********************** 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER "; 
A$ 

1210 PRINT 

1220 FOR X = 1 TO 3 

1230 PRINT TAB( 4 * X)"OK, GOOD LUCK, " 

;A$ 

1240 GOSUB 2330: NEXT X 

1250 PRINT ****************************** 
********** it 

1260 PRINT "WHICH RACE DO YOU WANT TO TA 
KE PART IN:" 
1270 PRINT 

1280 PRINT TAB( 7)"BRITISH GRAND PRIX 
2650MT : 1" 

1290 PRINT TAB( 7 ) "GERMAN GRAND PRIX 
1700MT :2" 

1300 PRINT TAB( 7)"ITALIAN GRAND PRIX 
2200MT :3" 

1310 PRINT TAB( 7)"M0NAC0 GRAND PRIX 
3100MT :4" 

1320 PRINT 

1330 PRINT TAB( 7) "ENTER A NUMBER (1 TO 
4)" 

1340 GET K$ 

1350 IF K$ < "1" OR K$ > "4" THEN 1340 
1360 GP = VAL (K$) 

1370 PRINT ****************************** 

»t* *J> «A» «A» -J> ->C* «A> vt* <JU vU f f 
sp* Jf% ■ 

1380 PRINT TAB( 8)"0K, THE "; 
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1390 IF GP = 1 THEN PRINT "BRITISH"; 

1400 IF GP = 2 THEN PRINT "GERMAN"; 

1410 IF GP = 3 THEN PRINT "ITALIAN"; 

1420 IF GP = 4 THEN PRINT "MONACO"; 

1430 PRINT " RACE" 

1440 PRINT "**************************** 

1450 PRINT : PRINT "OVER HOW MANY LAPS?" 

1460 INPUT LAP: IF LAP < 1 THEN 1460 

1470 LAP = INT (LAP + .5):L2AP = LAP 

1480 REM ***************** 

1490 REM BRITISH DATA 

1500 SP = 140 

1510 FOR X = 1 TO 9 

1520 READ D(X): REM DISTANCE BETWEEN CO 
RNERS 
1530 NEXT X 

1540 DATA 800,400,250,200,250,300,100,1 
00,250 
1550 FOR X = 1 TO 9 

1560 READ C(X): REM RECOMMENDED MAXIMUM 
CORNERING SPEED 
1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150, 
150 

1590 FOR X = 1 TO 9 

1600 READ A(X): REM AVERAGE NUMBER OF M 
OVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP = 800:WW = 10:QQ = 24:RR = 2650 

1640 IF GP = 1 THEN RETURN 

1650 REM ************************ 

1660 REM GERMAN DATA 

1670 SP = 85 

1680 FOR X = 1 TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 

1720 FOR X = 1 TO 7 

1730 READ C(X) 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 
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1760 FOR X = 1 TO 7 

1770 READ A(X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1800 APP = 600:WW = 8:QQ = 17:RR = 1700 

1810 IF GP = 2 THEN RETURN 

1820 REM ************************* 

1830 REM ITALIAN DATA 

1840 SP = 108 

1850 FOR X = 1 TO 7 

1860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X = 1 TO 7 

1900 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X = 1 TO 7 

1940 READ A(X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APP - 800:WW = 8:QQ = 22:RR = 2200 

1980 IF GP = 3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SP = 162.5 

2020 FOR X = 1 TO 14 , 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,2 
00,200,200 

2060 DATA 150,150,200,250 

2070 FOR X = 1 TO 14 

2080 READ C(X) 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,9 
0, 175, 150 

2110 DATA 150,175,120,150 

2120 FOR X = 1 TO 14 

2130 READ A(X) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 
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2170 APP = 400:WW = 15:QQ = 30:RR = 3100 
2180 RETURN 

2190 REM ************************* 

2200 REM INITIALIZATION 

2210 HOME 

2220 GOSUB 8020 

2230 DIM A(14) ,C(14) ,D(14) 

2240 C = 1:FP = 6:PNT = 0:NC = 0:CP = 0: 

2250 AM = 0:RP = 0:APP = 

2260 NUM = 0: REM NUMBER OF MOVES 

2270 ENG = 100 : BRAK = 10:TRAV = 0:DIST = 



2280 EFLAG = 
2290 X = 
2300 RETURN 

2310 REM ************************* 

2320 REM DELAY 

2330 FOR = 1 TO 1000: NEXT 

2340 RETURN 

5000 PZ = 200 :DZ = 75 

5010 FOR TL = 1 TO 3 

5020 GOSUB 8000 

5030 NEXT TL 

5040 RETURN 

5200 PZ = 100:DZ = 255 

5210 GOSUB 8000 

5220 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ : CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM FLIGHT SIMULATION 

15 REM APPLE IIE/IIC VERSION 

20 RPT = 

30 LD = INT ( RND (1) * 360) 
40 DIM E$(1000): REM THIS HOLDS FLIGHT 
RECORD 

50 DIM A$(7),C$(7): REM THESE ARRAYS HO 
LD HORIZON AND COMPASS OUTPUT 
60 REM ******************** 

70 GOSUB 2320: REM INITIALIZE 

80 IF CRASH = THEN GOSUB 820: REM H 
ORIZON/COMPASS 

90 GOSUB 500: REM PRINTOUT 

100 IF CRASH = 1 THEN END 

110 IF LA = 1 AND UFLAG = 1 THEN PRINT 
"WELL DONE. A PERFECT LANDING!! 
": END 

120 IF LA = 1 AND UFLAG = THEN PRINT 
"YOUR WHEELS ARE UP": GOSUB 178 
0: GOTO 90 
130 T = AI: STALL = 

140 X$ = "":XZ = 0:XZ = PEEK ( - 16384) 
- 128: IF XZ > THEN X$ = CHR$ 
(XZ) 

150 IF X$ = "R" THEN RPT = 1: GOTO 70 
160 IF RPT = 1 AND E$(CL0CK + 1) = "" TH 
EN RPT = 0: GOTO 140 
170 IF RPT = 1 THEN X$ = E$(CLOCK + 1) 
180 IF X$ = "" THEN 140 
185 POKE - 16368,0 

190 IF CLOCK < 999 THEN E$(CL0CK + 1) = 
X$ 

200 IF TAKEOV = 1 THEN EL = INT (EL + 
RND (1) * 2 - RND (1) * 3) 
210 IF AI < 3 THEN 290 

220 IF X$ = "Q" THEN EL = EL + 5 : EFLAG = 
5: IF EL > 60 THEN STALL = 1 
230 IF X$ = "A" THEN EL = EL - 5: EFLAG = 
- 5: IF EL < - 70 THEN STALL 
= - 1 

240 IF STALL < > THEN GOSUB 1640 



242 



Apple lie 



250 IF ALTIMETER < 1 THEN 290: REM PREV 
ENTS DRAMATIC TURNS ON THE GROU 
ND 

260 IF X$ = "Z" THEN WA = WA - . 5 : ANG = 
ANG - 6: IF WA < - 3 THEN WA = 
- 3 

270 IF X$ = "M" THEN WA = WA + . 5 : ANG = 
ANG +6: IF WA > 3 THEN WA = 3 
280 ANG = INT (ANG + RND (1) * 2 - RND 
( 1 ) * 2) 

290 IF X$ = " " THEN AI = AI + 8.5 
300 IF X$ = "." THEN AI = AI - 7 
310 AI = AI - EL / 5 

320 IF UFLAG = 1 THEN AI = AI - 1 . 5 : FUEL 
= FUEL - .5 

330 IF AI < THEN AI = 

340 IF AI > 400 THEN AI = 400 

350 IF X$ = "1" AND UFLAG = THEN UFLAG 

= 1: GOTO 370 

360 IF X$ = "1" AND UFLAG = 1 THEN UFLAG 
= 

370 FUEL = FUEL - ( ABS (T - AI) / 10) - 
3. 75 

380 IF FUEL < 1 THEN GOSUB 1780 

390 IF TAKEOV = 1 THEN 420 

400 IF EL > 10 AND AI > 45 AND AI < 60 A 
ND UFLAG = 1 THEN TAKEOV' = 1 

410 IF TAKEOV = THEN ALTIMETER = 0: GO 
TO 450 

420 IF LA = AND AI < 30 THEN EL = EL - 
5: ALTIMETER = 9 * ALTIMETER / 
10 

430 ALTIMETER = ALTIMETER + INT (((EL + 
.1) * AI) + EFLAG * AI / 1000) / 
80 

440 IF ALTIMETER < 300 AND TAKEOV = 1 TH 
EN ALTIMETER = ALTIMETER + AI / 
30 + EL 

450 IF ALTIMETER < THEN GOSUB 1780: R 
EM CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE I 
T EASIER (OR EVEN HARDER) TO LA 
ND 
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470 IF ALTIMETER > 15 AND AI > 20 OR TAK 
EOV = THEN 80 
480 IF ABS (ANG - LD) < 13 OR ABS (ANG 
+ 360 - LD) < 13 THEN LA = 1 : GOTO 
80 

490 REM ****************** 
500 REM PRINTOUT 
510 HOME 

520 PRINT " HORIZON"; TAB( 20) "HEADING 

?! 

530 EV = INT (EL / 10) 
540 IF EV > 2 THEN EV = 2 
550 IF EV < - 2 THEN EV = - 2 
560 IF EV < > AND TAKEOV = 1 AND CRAS 
H = THEN GOSUB 1920 

570 PRINT ": : : " 

580 FOR J = 1 TO 7 

590 PRINT ": ";A$(J);" :";C$(J);" :" 
600 A$(J) - "" 
610 NEXT J 

620 PRINT ": :" 

630 DIST = DIST + ABS (( COS (EL)) * AI) 
/ 360 

640 CLOCK = CLOCK + 1 

650 PRINT " : RANGE "; INT (DIST * 10) / 1 
0;": TIME "; INT (CLOCK) / 10;" 
: " ; LD 

660 PRINT ": : " 

670 PRINT ": AIRSPEED : "; INT (AI) 
675 IF AI < 20 THEN PRINT ">": GOTO 690 
680 PRINT ": " ; LEFT$ (Q$, INT (AI / 20) 
) ; ">" 

690 PRINT ": ALTIMETER: "; INT (ALTIMETER 

) ; 

700 IF ANG < THEN PRINT TAB( 19)360 
+ ANG;" DEG." 

710 . IF ANG > = THEN PRINT TAB( 19)A 
NG;" DEG." 

720 MR = INT (ALTIMETER / 30): IF MR . > 2 
THEN MR - 20 
725 IF MR = THEN PRINT ">" : GOTO 740 
730 PRINT ": "; LEFT$ (Q$,MR);">" 
740 PRINT " : FUEL : "; INT (FUEL) 
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LEFT$ (Q$,20 - INT (FUE 



750 PRINT ": ' 
L / 750)) ;">** 

760 PRINT ": 

770 PRINT *': ELEVATION: " ; EL ; " 

2210: PRINT U$ 

780 IF UFLAG = 1 THEN 
)"> UNDERCARRIAGE DOWN < 

790 IF UFLAG = THEN 
)"> UNDERCARRIAGE UP < 



PRINT 
: " 

PRINT 



IF CRASH = 
RETURN 



795 

800 

810 

820 

830 
OSUB 

840 
OSUB 

850 
OSUB 

860 
50 

870 

Y STRAIGHTEN 



1 THEN END 



REM 

REM 

IF 
980 

IF 
1070 

IF 
1160 

IF 



********************** 

ASSIGN HORIZON/COMPASS 
ABS ( INT (WA + 

ABS ( INT (WA + 

( INT 

(WA + 



ABS 



INT 



• 5)) = 
.5)) = 
(WA + .5)) = 
.5) = THEN 



REM NEXT TWO LINES USED TO 
3 WINGS 

> THEN WA = WA - .2 
< THEN WA = WA + .2 

> .2 THEN 1350 
= 1 TO 7 
Z) = A$(Z) 



";: GOSUB 
"; TAB( 5 
TAB( 6 

** 

3 THEN G 
2 THEN G 
1 THEN G 
GOSUB 12 
GRADUALL 



880 IF WA 
890 IF WA 
900 IF WA 
910 FOR Z 
920 M$(8 - 
930 NEXT Z 
940 FOR Z = 1 TO 
950 A$(Z) = M$(Z) 
960 NEXT Z 
970 . GOTO 1350 
980 REM WA=3 OR 
990 A$(l) = " 
1000 A$(2) 
1010 A$(3) 
1020 A$(4) 
1030 A$(5) 
1040 A$(6) 
1050 A$(7) 
1060 RETURN 

1070 REM WA=2 OR WA=-2 
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1080 A$(l) = " 

1090 A$(2) = " == " 

1100 A$(3) = " === " 

1110 A$(4) = " 

1120 A$(5) = " === " 

1130 A$(6) = "=== 

1140 A$(7) . " " 

1150 RETURN 

1160 REM WA=1 OR WA=-1 

1170 A$(l) = " 

1180 A$(2) = " 

1190 A$(3) = " =====" 

1200 A$(4) = " ====== 

1210 A$(5) = "==== 

1220 A$(6) = " 

1230 A$(7) = " 

1240 RETURN 

1250 REM WA=0 

1260 A$(l) = " 

1270 A$(2) = " 

1280 A$(3) = " " 

1290 A$(4) = "==============" 

1300 A$(5) = " " 

1310 A$(6) = " 

1320 A$(7) = " " 

1330 RETURN 

1340 REM ********************* 

1350 REM ASSIGN COMPASS STRINGS 

1360 F2 = ANG - Fl 

1370 IF F2 < THEN FA = INT ((F2 + 375 
) / 30) 

1380 IF F2 > =0 THEN FA = INT ((F2 + 

15) / 30) 

1390 IF FA = 12 THEN FA = 

1400 C$(l) = " .N. " 

1410 IF FA = 11 THEN C$(2) = " " : 

GOTO 1450 

1420 IF FA = THEN C$(2) = " . ": 

GOTO 1450 

1430 IF FA = 1 THEN C$(2) = " . . :@. " : 

GOTO 1450 

1440 C$(2) = " 
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1450 IF FA = 10 THEN C$(3) = " .@ : 
GOTO 1480 

1460 IF FA = 2 THEN C$(3) = " .„ : § . " : 
GOTO 1480 
1470 C$(3) = .. : .." 

1480 IF FA = 9 THEN C$(4) = " W@-X — E" : 
GOTO 1510 

1490 IF FA = 3 THEN C$(4) = " W— X-@E": 
GOTO 1510 

1500 C$(4) = " W — X — E" 

1510 IF FA = 8 THEN C$(5) = " .§ : 
GOTO 1540 

1520 IF FA = 4 THEN C$(5) = " . . : @." : 
GOTO 1540 
1530 C$(5) = " .. : ..» 

1540 IF FA = 7 THEN C$(6) = " » : 

GOTO 1580 

1550 IF FA = 8 THEN C$(6) = " » : 
GOTO 1580 

1560 IF FA = 5 THEN C$(6) = " . . : @. » s 
GOTO 1580 
1570 C$(6) . » 
1580 C$(7) = " .S. " 

1590 IF ANG > 360 THEN ANG = ANG - 360 
1600 F2 = ANG 

1610 IF W > THEN W = W - .4 

1620 IF W < THEN W = W + .4 

1630 RETURN 

1640 REM STALL/FALL 

1650 IF STALL = - 1 THEN 1710 

1660 FOR J = 1 TO 10 

1670 PRINT TAB( J)"YOU HAVE STALLED!" 

1680 NEXT J 

1690 AI = AI / 4 

1700 RETURN 

1710 FOR J = 1 TO 10 

1720 PRINT TAB( J) "UNCONTROLLED DIVE!!" 
1730 PRINT TAB( 21 - J)"PULL UP!!" 
1740 NEXT J 

1750 ALTIMETER = 4 * ALTIMETER / 5 
1760 RETURN 

1770 REM ******************** 
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1780 REM CRASH 
1790 CRASH = 1 
1800 ALTIMETER = 

1810 M$ - "** *C R** A ** S* H* !!*": RE 
M 25 CHARACTERS LONG 
1820 FOR J = 1 TO 20 
1830 PRINT TAB( J) "CRASH!" 
1840 PRINT TAB( 21 - J)"CRASH!" 
1850 NEXT J 
1860 FOR J = 1 TO 7 
1870 G = INT ( RND (1) * 11) + 1 
1880 A$(J) = MID$ (M$,G,14) 
1890 NEXT J 
1900 RETURN 

1910 REM ******************** 
1920 REM ADJUST HORIZON 

1930 G$ = " ": REM 14 SPACE 

S 

1940 ON EV + 3 GOSUB 1960,2020,2070,2080 
,2140 
1950 RETURN 
1960 REM EV=-2 
1970 FOR J = 1 TO 4 
1980 A$(J) = A$(J + 3) 
1990 NEXT J 

2000 A$(5) = G$:A$(6) = G$:A$(J) = G$ 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J = 1 TO 6 

2040 A$(J) = A$(J + 1) 

2050 NEXT J 

2060 A$(7) = G$ 

2070 RETURN : REM EV=0 

2080 REM EV=1 

2090 FOR J = 6 TO 1 ,STEP - 1 

2100 A$(J + 1) = A$(J) 

2110 NEXT J 

2120 A$(l) = G$ 

2130 RETURN 

2140 REM EV=2 

2150 FOR J = 4 TO 1 STEP - 1 
2160 A$(J + 3) = A$(J) 
2170 NEXT J 
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2180 A$(l) = G$:A$(2) = G$:A$(3) = G$ 

2190 RETURN 

2200 REM ********************** 

2210 REM INPUT INTO COMMAND NAME 

2220 U$ = " " 

2230 IF X$ = " " THEN U$ = "THROTTLE ON" 

)( 2240 IF X$ = "." THEN U$ = "THROTTLE OFF 

2250 IF X$ = "Q" AND ALTIMETER > THEN 

U$ = "CLIMB" 
2260 IF X$ = "Q" AND ALTIMETER = THEN 

U$ = "NOSE UP" 
2270 IF X$ = "A" THEN U$ . "NOSE DOWN" 
2280 IF X$ = "Z" THEN U$ = "BANK LEFT" 
2290 IF X$ = "M" THEN U$ = "BANK RIGHT" 
2300 RETURN 

2310 REM ********************* 
2320 REM INITIALIZATION 
2330 HOME 

2350 Q$ = " REM 2 

1 CHARACTERS IN STRING 

2360 UFLAG = 1: REM UNDERCARRIAGE - 1 - 
DOWN, - UP 

2370 EFLAG =-0: REM CLIMB RATE 

2380 ANG = 0:TAKE0V = 0:LA = 

2390 AI = 0: REM AIRSPEED 

2400 DIST = 0: REM DISTANCE COVERED 'RAN 
GE' 

2410 ALTIMETER = 

2420 EL = 0: REM ANGLE OF ELEVATION 

2430 WA = 0: REM 'WING ANGLE; USED IN HO 
RIZON PRINTOUT 

2440 FUEL = 750:CRASH = 0:F2 = 0:F1 = 0: 
REM FOR DIRECTION CHANGE/COMPA 
SS ROUTINE 

2450 CLOCK = 0: REM TIME 

2460 X$ = "" 

2470 RETURN 
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SPACE LANDING SIMULATION / Commodore 64 version 

1.0 REM SPACE LANDING SIMULATION 

20 FLAG=INT ( RND < VAL (RIGHT* ( TI35, 2 ^ ) ) ) : REM 

RANDOMIZE 

3.0 REM ****************************** 

40 REM SET STARTING VALUES 

45 POKE 5328.0, 0: POKE 53281, 

50 FUEL =200+ RND < 1 ) *40 

60 VELQC I TY=RND ( 1 ) #20-6 

70 HEIGHT=500-RND ( 1 ) *10 

80 PRINT" 

{CLRXWHTJ " 

9.0 PRINT" FUEL " 5 TAB (12) ; " VELOCITY" ; TAB ( 
24)| B HEIGHT" 

110 REM MAJOR CYCLE 

12.0 GOSUB 430 

13.0 IF FUEL<=0 THEM FUEL=0 : THRUST=0 : GOTO 

170 

140 GET A* 

150 IF A*<"0" OR A* > " 9 " THEN 14.0 

160 THRUST=VAL ( A35> + . I 

17.0 FUEL=FUEL -THRUST 

180 FLAG=THRUST-2 

19.0 THRUST=0 

20.0 HEIGHT=HEIGHT+VELOC ITY + FLAG/ 4 

210 VELOC I TY= VELOC ITY+FLAG 

22.0 IF HEIGHT< = 10 THEN 24.0 

230 IF HE I GHT > 10 THEN 120 

240 IF VEL0CITY>-9 AND VELOCITY<5 THEN 2 
90 

250 GOSUB 41.0 
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260 PRINT "YOU HAVE CRASHED INTO THE SURF 

fii C EE a a a 

270 IF HE I GHT >0 THEN HE I GHT=-HE I GHT 
280 GOTO 320 

290 GOSUB 4000 : PR I NT " YOU HAVE LANDED SAF 
ELY ! " 

300 PR I NT "YOUR SKILL RATING IS" INT (-1000 
*FUEL/ (VELOCITY-HEIGHT) ) 
310 HEIGHT=0 
320 GOSUB 4.10 

330 PR I NT "FINAL INSTRUMENT READINGS WERE 

El It 

340 PRINT" FUEL" ; TAB (12) 5 " VELOC I TY " ; TAB 

(24) 5 " HEIGHT" 

350 GOSUB 430 

360 GOSUB 4.10 

370 IF HE I GHT >=0 THEN END 

380 PRINT-NEW CRATER ON MOON" INT (ABS ( 100 

*<HEIGHT+. 2) /3) ) / 100 "METERS DEEP! " 

390 PRINT " YOUR SKILL RATING IS " INT (100* 

FUEL / (VELOCITY-HEIGHT) ) 

400 END 

410 PRINT" 



420 RETURN 

430 PR I NT I NT ( 1 00#FUEL ) / 1 00 ; 

440 PRINT TAB (12) 5 - INT < 100#VELOC ITY ) / 100 

5 

45.0 IF HEIGHT>=0 THEN PRINT TAB (24) 5 INT( 

100*HEIGHT) /1.00 

460 IF HE I GHT <0 THEN PRINT 

470 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1 ,L1 

4100 NEXT LI 
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4110 FOR Ll=28 TO 200 

4120 POKE SID+1 ,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1 5 L1 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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MONTE CARLO DEMONSTRATION / Commodore 64 
version 

10 RFM MONTE CARLO DEMONSTRATION 
20 GOSUB 370: REM INITIALISE 
30 REM 

40 REM MAJOR CYCLE 
45 PRINT " 
{CLR> " 

50 GOSUB J 00: REM PRINT 

60 IF P=EP AND Q=E0 THEN PRINT: PR I NT "DEM 

ONSTRAT I ON OVER " : END 

70 GOSUB 230 : REM GENERATE MOVE 

80 GOTO 50 

90 REM 

100 REM PRINTOUT 

110 AS < P , Q ) = " O " 

120 M=M+ t 

130 PRINT" 

{ HOME > " : PRINT: PRINT 

140 PR I NT" MOVE "M 

150 FOR X=l TO 10 

160 FOR Y=l TO 10 

170 PRINTA35 <X, Y) J » " | 

180 NEXT Y 

190 PRINT 

200 NEXT X 

210 RETURN 

220 REM 

230 REM GENERATE MOVE 
240 AS i P, Q) =" . " 

250 G=0 

260 T=INT<RND'1)#4>+1 

270 ON T GOSUB 310, 320, 330, 340 

2S0 IF G=0 THEN 260 

290 IF G=l AND RMD ( 1 ) >. 5 THEN 260 
300 RETURN 

310 IF P>1 THEN P=P- 1 : G=G+ 1 : RETURN 
320 IF P<!0 THEN P=P+ 1 : G=G+ 1 : RETURN 
330 IF 0>1 THEN 0=0- 1 : G=G+ 1 : RETURN 
340 IF 0<10 THEN Q=0+ 1 : G=G+1 : RETURN 
350 RETURN 
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370 REM INITIALISE 

380 POKE 53280, 0": POKE 53231 , 0: PRINT " 
{CLR> " 

390 X=RND'MAL<RIGHT*CTI*,2> ) ) : REM 

RANDOMIZE 

400 DIM A* < 10, 10) 

410 FOR X=l TO 10 

420 FOR Y = l TO 10 

430 ASMX, Y> =" . " 

440 NEXT Y 

450 NEXT X 

460 PRINT: PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 

480 INPUT P 

490 IF P<1 OR P>10 THEN 480 

500 PRINT-ENTER SECOND START CO-ORDINATE 

(LESS THAN 10)" 

510 INPUT Q 

520 IF GK1 OR 0>10 THEN 510 
530 PRINT: PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE <L 
ESS THAN 10) " 

550 INPUT EP 

560 IF EP< 1 OR EP>10 THEN 550 

570 PR I NT "ENTER SECOND END CO-ORDINATE < 

LESS THAN 10) " 

580 INPUT E© 

590 IF EGKi OR EQ>10 THEN 580 
600 A$(P,Q)="0" 
610 A*<EP,EG1)="X" 
620 RETURN 
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X TO 



10 REM SIMULTANEOUS EQUATIONS 

20 POKE 53280,0: POKE 53280, 0: PRINT ' 

(. CLR } " 

30 7 = RND 'UAL 'RIGHT* !TIS, 2) > ) : REM 

RANDOMIZE 

40 HS=0 

50 FD=RND(0i 

60 PRINT: PR I NT "DECAY FACTOR IS"FD 
70 GOSUB 550 
80 PRINT" 

<:clrj " 

90 print: print 

100 PR I NT "ENTER 
START 

110 INPUT CP: IF 
120 PRINT : PRINT 
130 PR I NT "WE HAVE "CP" 
140 PRINT : PRINT 
150 PR INT "ENTER 
START 

160 INPUT EP: IF 
170 PRINT " 
•CCLRI": PRINT: PR INT" PLEASE STAND BY 
180 GOSUB 550 SPRINT" 
<CLR> " 
190 DA=t 

200 IF CP>EP/FD THEN CP=EP/FD 
2t€f PRINT" » 

215 IF INT<CP)<0 THEN CP=0 

216 IF INT!EP><0 THEM EP=0 
220 PRINT "TIME ELAPSED: "DA 
230 PRINT INT<CP)"CELL X" 
240 PRINT INT <EP> "CELL Y" 
250 REM 

260 REM MAJOR CYCLE 
270 GOSUB 550 
280 DA=DA+ 1 

290 PRINT " » 

300 PRINT "TIME ELAPSED: "DA 
310 IF CP>EP/FD THEN CP-EP/FD 



NUMBER OF CELL 
( LESS THAN 40) " 
CP< 1 OR CP>39 THEN 110 



X CELLS " 



NUMBER OF CELL Y TO 
(LESS THAN 40) " 
EP< 1 OR EP>39 THEN 160 



Commodore 64 

320 REM EQUATIONS FOLLOW S MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 
33.0 CP=CP+ < <8*CP-CP#EP/3)*FD) 
340 EP=EP+ ( <8*EP-EP*CP/3)*. 01 ) 
350 PRINT INT ( CP ) "CELL X " 
360 PRINT INT(EP)"CELL Y " 
370 IF EP<2 OR CP<2 THEN 410 
380 GOSUB 550 
390 GOTO 280 
400 REM 

410 IF DA >HS THEM HS=DA 
420 PR I NT : PR I NT 

430 PRINT "YOUR CELL CLASH SIMULATION SUR 
VIVED" 

440 PR I NT " FOR " DA " T I ME PERIODS." 

450 PRINT " 

li 

460 PR I NT "THE BEST SURVIVAL TIME SO FAR 
IS"HS 

470 GOSUB 550 

480 PRINT" 

, II 

4 9 pr I NT "DO YOU WANT A NEW RUM « Y OR N> 

a 

500 GET A* 

510 IF ASK >"Y" AND A*< > "N" THEN 500 
520 IF A*= " Y " THEN PRINT " 
{CLR}" : GOTO 60 

530 PR I NT "OK" SPRINT SPRINT I END 

540 REM ■*#4H^##***#***##*****###*##* 

550 FOR J=l TO 2000: NEXT 

560 RETURN 
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10 

20 
3.0 
40 
5.0 
60 
70 
80 

J 00 
1 10 

120 
130 
1 40 
150 
.160 
i -><x 



REM CONWAY'S LIFE SIMULATION 
REM DEFINED INITIAL COLONY 
GOSUB 460: REM INITIALISE 
REM ##**#*###*###*##*####-#-}B«.# 
REM MAJOR CYCLE 
GENERAT I N=GENERAT IN+ 1 
GOSUB 290: REM PRINTOUT 
GOSUB 1 10: REM EVOLVE 
GOTO 60 

REM ************************ 
REM EVOLVE 
FOR X=2 TO 12 
TO 12 



130 
3 90 

2.00 

21.0 
220 
23.0 

n b* ( x 

240 IF 



FOR Y=2 

C=0 

IF A* ( X - 
ASKX- 
AS> i X - 
A* (X , 
ASM X , 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



THEN C=C+1 
i,Y>="X» THEM C=C+1 
1 , Y+l > ="X" THEN C = C + 1 
Y-1>="X" THEN C=C+1 
Y+1)="X" THEN C=C+1 

THEN C=C + 1 



A* ' X+l , Y) ="X" THEN C= 



A* <X+1 , Y+l ) ="X" 
AS ( X , Y ) = " X " AMD 
Y> =CHR* (32) 
AsS 



THEN 

C<>2 



C+l 
C=C + i 
AND C< 



3 THE 



• > Y ) = " " AND C = 3 THEN B*(X, Y) = 



250 
260 
270 
28.0 
290 
30.0 



NEXT Y 
NEXT X 
RETURN 
REM ****) 
REM PRINTOUT 
PRINT " 
R J " 
31.0 PRINT 

PR I NTT ABM) ; " GENERAT I ON " GENERAT I N 
PR I NT 

FOR X=2 TO 12 

FOR Y=2 TO 12 



320 
330 
34.0 
350 
360 
370 
380 



A*(X,Y)=B*(X,Y) 
PRINT A* (X, Y) ; 
NEXT Y 
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390 FOR Y=12 TO 2 STEP -1 

400 PRINT A* (X, Y) ! 

410 NEXT Y 

420 PRINT 

430 NEXT X 

44.0 RETURN 

450 REM 

460 REM INITIALISE 

470 POKE 53280,0: POKE 532S 1 , : PRINT 
{ CLR > { PUR J " 

480 D=RND ' VAL ( RIGHT* ( TIS, 2 > ) ) : REM 
RANDOMIZE 

500 DIM ASM 13, 13) , B* < 13, 13) 

510 PRINT: PR I NT " PLEASE STAND BY . . 

520 FOR X=i TO 13 

530 PRINT 14-X; 

540 FOR Y=l TO 13 

55.0 REM FILL ARRAY W I TH BLANKS 
560 AS? <X, Y) =CHR35 f 32) 
570 B* (X, Y> =A* (X, Y) 
580 NEXT Y 
590 NEXT X 

600 READ D: IF D=99 THEM 630 

610 READ E : Aft ( D , E ) = " X u : BS ( D , E ) = " X " 

620 GOTO 600 

630 GENERATING 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 
660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 
700 DATA 99 
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1 .0.0 REM ROBOT LOGO 

110 GOSUB .173.0: REM INITIALISE 

120 GOTO 490 

130 REM 

14.0 REM 

15.0 REM 

160 REM 

17.0 REM 

180 REM 

19.0 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

31.0 REM 

320 DATA 

330 REM 

340 REM INT (JX,AX 

350 UX=INT (UX+. 5) : AX= INT ( AX+ . 5 > 

360 RETURN 




39.0 PRINT " 
{ CLR > " 

4.0.0 PRINT"STEP"PSN" > " ; AS (PSN) : PRINT 

410 FOR J=l TO DEPTH 

42.0 FOR K=l TO BREATH 

430 PRINT 7*6 < I, K> } 

44.0 NEXT K 

450 PRINT 

46.0 NEXT J 

470 RETURN 

4S0 REM 

490 REM READ PROGRAM 




380 REM 



PRINT OUT 
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500 COUNT=COUNT+l 

510 READ A=S i COUNT ) 

520 IF A* (COUNT) = "#■' THEN 550 

530 IF COUNT < 20 THEM 500 

540 REM 

550 REM EXECUTE PROGRAM 

560 PSM=0:REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEM 580: REM END 
590 FLAG=0 
600 M*-A$<PSN) 

610 IF M$="#" THEM 610: REM END 
620 N*=LEFT* <M*„ 2) 

630 IF N*="ST" THEM 560: REM START AGAIN 
640 IF N*="PR" THEN GOSUB 380: REM PR INTO 
UT 

650 IF N33="FO" THEN FLAG=1 
660 IF N*= " B A " THEN FLAG=2 
670 IF N*="TU" THEN FLAG=3 
680 IF N*="HO" THEN FLAG=4 
690 IF N*="CL" THEN Fl_AG=5 
700 IF N*="GO" THEN FLAG=6 
710 IF N«="RA" THEN FLAG=7 
720 IF N*="RE" THEN FLAG=8 
730 IF NS>="EN" THEN FLAG=9 
740 IF M*="FA" THEN FLAG- 10 

750 ON FLAG GOSUB 780,940,1000,1160,1220 
, 1260, 1400, 1460, 1530, 1580 
760 GOTO 570 
770 REM 

780 REM FORWARD 
790 M*=MID* <M*, 4) 

800 IF ASCCMS5>=87 THEN M*=M I D* ( MS , 6 ) 

810 F*="F" 

820 NUM=VAL(M*> 

830 FOR E=l TO NUM 

840 IF UX< 1 OR UX>DEPTH THEN 880 
850 IF AX < 1 OR AX >BREATH THEN 880 
860 Z*(UX,AX)=T* 

880 IF FS5="F" THEM UX=UX+UP : AX=AX+ AC 
890 IF F*="B" THEN UX=UX-UP: AX=AX-AC 
900 GOSUB 340 
910 NEXT E 
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920 RETURN 
930 REM 

940 REM BACK 
950 M*=MIDS3 <M«, 4> 

960 IF ASC <M33> =78 THEM M*=MIDS (M* 5 3> 
970 F*="B" 
980 GOTO 820 
990 REM 

1000 REM TURN 
1010 M*=MID*(M*,4) 

1020 IF ASC(M*>=78 THEN M*=M I DSM M* , 3 ) 

1030 NUM=VAL<M*> 

1040 Y= I NT < ( NUM+ 17. 5 w 45) 

1050 IF Y=0 OR Y=8 THEN RETURN 

1060 FOR 1=1 TO Y 

1070 IF UP=-1 AND AC=0 THEN AC=l:GOTO 11 

30 

1080 IF UP=0 AND AC=1 THEN UP=1 : GOTO 113 


1090 IF UP=1 AND AC=0 THEN AC=-l: GOTO 11 
30 

1100 IF UP=0 AND AC = -1 THEN UP=-1 : GOTO 1 

1 30 

1110 IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 

THEN AC=0:GOTO 1130 
1120 IF UP=-1 AND AC=1 OR UP=1 AND AC=-1 

THEM UP=0 
1130 NEXT J 
1 140 RETURN 

1150 REM *************************** 
1160 REM HOME 

1170 ax=int ( <breath+ .5) /2) 
1180 ux=imt ( (depth+.5) /2) 
1190 up=-i : ac=0:rem faces up 

1200 RETURN 

J. !2 1 RIEM X - "X 1 K - - X" "X - "X* *X" "X* -X* "X* m X" 'X - "X - 'X* 'X - "Xt "X"X* "X* "X ■ - X" X - "X* ■X* "X* 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

i 250 REM X' X X X' 1 ^ ^ ^ - X X X X $ X "X - X X , X' X , , X" X" X" XX 

.1260 REM GO X,Y 

1270 P=0 

1280 P=P+1 
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i 29.0 IF M I E>$ 1 M* , P , I ) = " , " THEM 1320 

13.00 IF P<LEN<M$> THEN 1280 

1310 RETURN: REM ERROR 

1320 UX=WAL(MIP*(M*,4,P-n ) 

1330 AX=VAL < RIGHT** MS, LEN<M*)-P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEM 1380 

1360 IF AC<1 OR AO BREATH THEN 1380 

1 37.0 Z* (UX,AX) =R*> 

1380 RETURN 

1390 REM 

1400 REM RANDOM 

1410 AX= I MT < RND ( 1 ) *BREATH) 

1420 UX=INT (RND ( 1 >*DEPTH> 

1430 Z*fUX,AX)=RS 

1440 RETURN 

1450 REM 

1460 REM REPEAT 

147.0 M*=MIDSMMSi, 4) 

1480 IF ASC(MSO=69 THEN M*=MID* CMS, 5> 

1490 RECOUNT=VAL <M*) 

1500 MARKER=PSN 

1510 RETURN 

1520 REM 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1570 REM 

1580 REM FACE 

1590 Mft=MID*(M*, 4> 

1600 IF ASC <M$) =69 THEN M*=MI D* ( M* , 3 ) 

1610 NUM=VAL<MS> 

1620 Y=INT i. (HUM* 17. 5) /45)*45 

1630 IF Y=0 OR Y=360 THEN UP=-l:AC=0 

1640 IF Y=45 THEN UP=-l:AC=l 

1650 IF Y=90 THEN UP=0:AC=1 

1660 IF Y=135 THEN UP=l:AC=l 

167.0 IF Y=180 THEN UP=l:AC=0 

1680 IF Y=225 THEN UP=1 : AC=-1 

1690 IF Y=270 THEN UP=0:AC=-1 

1700 IF Y=315 THEN UP=-l:AC=-l 

1710 RETURN 
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172.0 REM 

173.0 REM INITIALISE 

1740 POKE 5328.0,0: POKE 53281 , : PRINT " 
{CLRJ" 

1750 J=RMD (VAL f RIGHTS (TI*, 2) ) ) : REM 
RANDOMIZE 

177.0 BREATH=40: REM CHARACTERS ACROSS 

1780 DEPTH=24:REM CHARACTERS DOWN 

1790 BREATH=BREATH- 1 

1800 DEPTH=DEPTH-3 

1810 UP=-1 : AC=0: REM STARTS FACING UP 

182.0 DIM AS5 (20) : REM FOR ROBOT PROGRAM 

1830 DIM < DEPTH , BREATH ) : REM DISPLAY 

1840 T$="X' : PEN PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 

185.0 AX=0S UX=0 

I860 REM FILL ARRAY WITH SPACES 

187.0 FOR 3=1 TO DEPTH 

188.0 FOR K=l TO BREATH 

1 89.0 Z*(J S K>=" " 

19.0.0 NEXT K 

1910 NEXT J 

1920 RETURN 



263 



POINT-DUTY ROBOT / Commodore 84 version 



100 REM POINT-DUTY ROBOT 

110 GOSUB 1.730: REM INITIALISE 

J 20 GOTO 490 

130 REM ****#**#***#*4Rf 

140 REM 

150 REM 

.160 REM 

170 REM 

180 REM 

190 REM 
200 REM 
210 REM 
220 REM 
230 REM 
240 REM 
250 REM 
260 REM 
270 REM 
280 REM 
290 REM 
300 REM 
310 REM 
320 DATA 

330 REM ####*#**###**#***###^#*#*##-?f 
340 REM INT UK , AX 

350 UX=INT ' UX+. 5) : AX=IMT <AX+.5> 
360 RETURN 
480 REM 

490 REM READ PROGRAM 

500 COUNT=COUNT+i 

510 READ AS (COUNT) 

520 IF AS < COUNT )=■"■¥■" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM #*#*#4Hf###*********##*****#* 

550 REM EXECUTE PROGRAM 

560 PSN=0: REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSM=21 THEN 580 : REM END 
590 FLAG=0 
600 M*=A«<PSN> 

610 IF MS="*" THEN 610: REM END 
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620 




=LEFTS f MS, 2) 




630 


IF 


NS= " g j " 


THEM 


560 : REM START AGAIN 


65.0 


IF 


NS="FO" 


THEM 


FLAG=1 


660 


IF 


NS= " EA " 


THEM 


FLAG=2 


670 


IF 


Mffi-"TU" 


THEN 


FLAG=3 


680 


IF 


NS="HO" 


THEM 


FLAG=4 


700 


IF 


MS="GO" 


THEM 


FLAG=5 


710 


IF 


, NS= " RA " 


THEM 


FLAG=6 


720 


IF 


NS= " RE " 


THEN 


FL AG=7 


730 


IF 


NS= "EM- 


THEN 


FLAG=8 


740 


IF 


MS^ "FA" 


THEM 


FLAG=9 


750 


ON 


FLAG GOSLIB 780,940, 1000, 1160, 1260 



, 1400, .1 460, 1530, 1580 
760 GOTO 570 
770 REM 

780 REM FORWARD 
790 MS=MIDS (MS, 4) 

800 IF ASC (MS) =87 THEN MS=M I DS ( MS , 6 > 

810 FS="F" 

820 NUM=VAL (M*> 

830 FOR E=l TO MUM 

840 IF UX< 1 OR UX>DEPTH THEM 880 
850 IF AX<1 OR AX >BREATH THEN 880 
860 GOSUB 2000 

880 IF FS="F" THEN UX=UX+UP: AX=AX+AC 
890 IF FS="B" THEN UX=UX-UP : AX=AX- AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 
930 REM 

940 REM BACK 
950 MS=MIDS (MS, 4) 

960 IF ASC (MS) =75 THEN M*=M1D$ (M$, 3) 
970 FS="B" 
980 GOTO 820 




1010 MS=MIBS (MS, 4) 

1020 IF ASC < M* > =78 THEN MS=M IDS < MS , 3 > 

1030 NUM=VAL(MS> 

1040 Y=INT ( (NUM+ 1 1 . 25) /22. 5> 

1050 IF Y=0 OR Y=16 THEN RETURN 

1060 FOR J=l TO Y 




1000 REM 



TURN 
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IF 
AO 
IF 



UP=-2 AND AC=0 
-1 : GOTO 1130 
yp-_2 AND AC=1 



OR UP=2 AMD AC = 2 



THEN AC=2:G0T0 11 



1065 
THEN 

1070 

30, 

1075 IF UP=-2 AND AC=2 OR UP=0 AND AC=-2 

THEN UF=-t:GOTO 1130 
1080 IF UP=-1 AND AC = 2 OR UP=1 AND AC = -2 

THEN UP=0:6OTO .1130 
1085 IF UP=0 AND AC=2 OR UP=2 AND AC=-2 
UP=l:GOTO 1130 



THEN 

1090 



1095 


1 100 
30 
1 105 
130 
1 i 10 
1 1 30 
1115 
1 130 
1 1 20 
1 130 
1 1 40 
.1 1 50 
1 1 60 
1 170 
1 1 80 
1 J. 90 
1 200 
1210 
1220 
1230 
1240 
1250 
1260 
1 270 
1 280 
.1 290 
1 300 
1310 
1320 



IF UP=1 AND AC=2 THEN UP=2:GOTO 113 

5 IF UP=2 AMD AC=1 THEN AC=0: GOTO 113 

IF UP=2 AND AC=0 THEN AC=-l:GOTO 11 

IF UP=2 AND AC=-1 THEM AC=-2: GOTO 1 

IF UP=-1 AND AC=-2 THEN UP=-2: GOTO 

IF UP=-2 AND AC=-2 THEN AC=-l:GOTO 

IF UP=-2 AND AC=-1 THEN AC=0 
NEXT J 
RETURN 
REM 

REM HOME 
AX=INT ( ' BREATH + . 5) /2) 
UX=INT< (DEPTH+.5) /2) 
UP=-2 : AC=0 : REM FACES UP 
RETURN 

REM ********#*^*********-)f****--3f- 
REM CLEAN 
GOSUB 1870 
RETURN 
REM 

REM GO X,Y 

P=0 
P=P+1 

IF MID*'M$,P, I)=", " THEN 1 320 
IF P<LEN(MSO THEN 1280 
RETURN : REM ERROR 
UX=VAL (MID35 CM*, 4, P- 1 ) ) 
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1330 A*-VAL 'RIGHT* <M9s, LEM 'Mf ! -P) ) 
1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEM 1380 
1360 IF AC< 1 OR AOBREATH THEN 1380 
1370 GOSUB 2000 
1380 RETURN 

1390 REM **************************** 

1400 REM RANDOM 

1410 AX=INT(PNDU >*BPEATH> 

1420 UX=INT (RND ( 1 >*DEPTH> 

1430 GOSUB 2000 

1440 RETURN 

1450 REM 

1 460 REM REPEAT 
1470 M*=MID* ' M*, 4 > 

1480 IF ASC <MS5> =69 THEN M£=M I D35 « M* , 5 ) 
1490 RECOUNT = V.'AL <M3>> 
1500 MARKER=PSN 
1510 RETURN 
1520 REM 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEM PSN=MARKER 

1560 RETURN 

1570 REM ********************^***** 
1580 REM FACE 
1590 M*=M I D* I M* „ 4 ) 

1600 IF ASC (MS) =69 THEN M*=MI D* ( MS , 3 > 

1610 NUM=VAL <M*) 

1620 Y=INT ( (NUM+17.5) /45>*45 



1630 


IF 


Y=0 OR Y=360 THEN UP= 




1635 


IF 


Y=22. 


5 THEM UP=-2SAC= 


1 


1640 


IF 


Y=45 


THEM UP=-2: AC=2 




1645 


IF 


Y=67. 


5 THEN UP=- 1 : AC= 


2 


1650 


IF 


Y=90 


THEN UP=0:AC=2 




1655 


IF 


Y=112 


.5 THEN UP=l:AC= 


2 


1660 


IF 


Y = 135 


THEN UP=2:AC=2 




1665 


IF 


Y=157 


.5 THEN UP=2:AC= 


1 


1670 


IF 


Y=180 


THEN UP=2:AC=0 




1675 


IF 


Y=202 


.5 THEN UP=2:AC= 




1680 


IF 


Y=225 


THEN UP=2:AC=-2 




1685 


IF 


Y=247 


.5 THEN UP=i:AC= 




1 690 


IF 


Y=270 


THEN UP=0:AC=-2 
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1695 IF Y=292.5 THEN UP=-l:AC=-2 
17.00 IF Y=315 THEN UP=-2:AC=-2 
1705 IF Y=337.5 THEN UP=-2: AC=-1 
1710 RETURN 

1720 REM *************************** 
1730 REM INITIALISE 
1740 PRINT " 
{CLR> " 

1750 J=RND ( VAL ( R IGHT33 !TI$, 2 > ) ) : REM 
RANDOMIZE 

1770 BREATH=320: REM CHARACTERS ACROSS 
1780 DEPTH=200: REM CHARACTERS DOWN 
1790 BREATH=BREATH~1 
1800 DEPTH = DEPTH -3 

j 8 10 up=-2: ac=0:rem starts facing up 

1820 DIM A*<20>:REM FOR ROBOT PROGRAM 

1830 REM TURN ON HIRES SCREEN 

.1840 BASE=2*4096:POKE 53272 , PEEK < 53272 ) O 

R8 

1850 POKE 53265, PEEK < 53265) OR32 
I860 REM SET SCREEN TO CYAN AND BLACK 
1870 FOR I=BASE TO BASE+7999 : POKE 1,0: NE 
XT I 

1880 FOR 1 = 1024 TO 2023: POKE 1,3: NEXT I 
1920 RETURN 

2000 REM ****** SET A POINT ********* 
2010 ROW=INT <UX/8> 
2020 CHAR=INT (AX/8) 
2030 LINE=UXAND7 
2040 BIT=7- < AXAND7) 

2050 BYTE=BASE+ROW*320+CHAR*8+LINE 
2060 POKE BYTE, PEEK <BYTE) OR2-BIT 
2070 RETURN 
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10 REM CONNECT FOUR 
20 REM A. W. PEARSON 

3.0 POKE 53280,0: POKE 532S1 , : PRINT " 
{ CLR > I WHT > " 
4.0 PRINT 
5.0 PRINT 

6.0 PRINT " CONNECT FOUR" 
70 PRINT 

8.0 PRINT " ENTER YOUR MOVE AS A NUMBER EE 
TWEEN " 

9.0 PRINT "1 AND 8, ENTER O FOR A NEW GAM 
E" 

100 FOR F=l TO 1000: NEXT F 
11.0 DIM A95< 10, 1.0) ,B<10,2> 
12.0 FLAG=0 

13.0 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS < C35-COMPUTER > 
1.40 C3s= " M " : H*= " " : REM M FOR MACHINE! 
150 FOR F=l TO 8 
16.0 B (F , 1 ) =6 
17.0 NEXT F 
180 FOR F=l TO 6 
190 FOR G=l TO 8 
2.00 A* < F , G > = M . " 
210 NEXT G 
22.0 NEXT F 
230 REM 

240 REM ACCEPT HUMAN MOVE 

250 GOSUB 430 

260 PRINT : PRINT " 

f PUR > YOUR MOVE. . . " 

270 INPUT A: PRINT" 

{ WHT } " ; 

280 IF A=0 THEN RUN 

290 IF A<1 OR A>9 THEN 270 

3.0.0 L=0 

31.0 IF A*<L+1 , A) <>" . " OR L=6 THEN 340 

320 L=L+1 

33.0 GOTO 310 

340 IF L=0 THEN 270 

350 A*(L,A)=H33 
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360 B (A, .1 >=B C A, 1 ) -1 

370 GOSUB 430 

330 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM 

420 REM PRINT BOARD 
430 PRINT " 
{ CLR J " 

440 FOR F=l TO 6 
450 FOR G=l TO 8 
460 PRINT A$(F,6)i 
470 NEXT G 
480 PRINT 
490 NEXT F 
500 PRINT" 12345678" 
510 PRINT 

520 IF FLAQ= 1 THEN PRINT" I HAVE WON": END 
530 RETURN 
540 REM 

550 REM COMPUTER MOVES 
560 PRINT "MY MOVE . . . " 
570 MV=0 

580 FOR F=l TO 8 

590 B (F, 2) =0 

600 NEXT F 

610 FOR F=l TO 8 

620 FOR X=-l TO 1 

630 FOR Y = ~l TO 1 

640 IF B f F, 1. ) =0 THEN 680 

650 IF AS <B <F S 1 > +X,F+Y>=" " OR AS ( B ( F , 1 > + 
X, F+Y) =" . " THEM 680 

660 IF AS (B <F, 1 > +X, F+Y) =HS THEN GOSUB 81 



670 IF A*<B<F, 1) +X ( F+Y)=C$ THEN GOSUB 91 



680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 P=0 

720 FOR F=l TO 8 

730 IF B (F, 2) >P THEN P=B <F, 2) : N=F 
740 NEXT F 
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•750 A$<B<N, 1> ,N> =CS 
760 B < N , 1 ) =B (M, 1 ) -1 

770 p=0 

780 N=0 
790 RETURN 
800 REM 
810 MV=2 
82.0 MI-MV 

830 IF A* (B (F, 1 ) + <X*2> , F + < Y#2> ) =H* THEM 
MV=MV+10 

840 IF A* (B (F, 1 ) -X, F-Y) =H* THEN MV=MV+20 
850 IF MVOM1 + 10 THEN 870 

860 IF A*<B(F, 1 ) + (X*3) ,F+ <Y*3) > =HS THEN 
MV=MV + .t000 

870 B(F,2)=B(F,2) + MV 
880 M i =0 
890 RETURN 

900 REM *********************^*** 
910 MV=2 
920 M1=MV 

930 IF A*(B(F, 1) + <X*2> ,F+ <Y*2> ) =C* THEN 
MV=MV+9 

940 IF AS(B(F, 1 ) -X,F-Y>=C* THEN MV=MV+20 
950 IF MVOM1+9 THEN 970 

960 IF A* <B (F, 1 ) + <X#3) „ F+ t Y#3) ) =C93 THEN 
MV=MV+2000: FLAG=1 
970 B <F, 2) =B <F, 2) +MV 
980 RETURN 
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10 REM QUEVEDO CHESS MACHINE 
20 GOSUB .1510: REM INITIALISE 
3.0 GOTO 6.0 

40 GOSUB 1320: REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

7.0 GOSUB 1 120: REM ACCEPT HUMAN MOVE 
80 GOTO 40 
9.0 END 

I. 00 REM *****■**•*-*■**#■ 

II. REM COMPUTER MOVES 
12.0 IF QUIT=1 THEN 1.08.0 
.130 Wi=WK 

14.0 REM ##******-K-*** 

150 REM MOVE ONE 

16.0 MOVE=l 

170 KM- TNT (BK/ 10) 

180 RM— INT f R/ 1.0) 

190 IF ABS ( KM-RM ) >3 THEN 330 

20.0 A(R)=46 

21.0 X=INT<BK/1.0) : Y = I NT f R / 1.0 ) 

220 IF X>Y THEM 27.0 

230 IF A<R-10><>46 THEM 27.0 

240 IF A (R-19) =BK OR A (R-21 * =BK OR A(R-2 
0) =BK THEN 27.0 

25.0 IF A (R- l 1 ) =BK OR A ( R-9 ) =BK THEN 27.0 
260 R=R-10:GOTO 300 

27.0 IF A;R+10)<>46 THEN A (R) =R: GOTO 330 

280 IF A (R+19) =BK OR A (R+21 ) =BK OR A (R+2 

0) =BK THEN A (R) =R: GOTO 33.0 

290 R=R+10 

30.0 A <R) =ASC ( "R" ) 

310 RETURN 

32.0 REM ***-*•*-*■*-#•**** 
330 REM MOVE TWO 
34.0 MOVE=2 
350 KM=BK- 10*KM 
36.0 RM=R-10*RM 

370 IF ABS (KM-RM) <2 THEN 480 
38.0 A(R)=46 

390 IF R> 1 1 THEN IF (A(R-12)=EK OR A < R-2 
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)=BK OR A(R+8)=BK> THEM A(R>=R:GOTO 480 
400 IF R>11 THEM IF ' A ' R - 1 ) -BK OR A ( R- 1 1 
)=BK OR A(R+9>=BK> THEN A ( R > =R : GOTO 480 
410 Y=BK-10*INT 'BK/ 10) 
420 Z=R- 1 0* I NT ( R / 1 ) 

430 IF (Z=l OR Y>2) AND A<R+1)=46 THEN R 

= R+1 : GOTO 450 

440 R=R-1 

450 A (R) =ASC ( "R" > 

460 RETURN 

470 REM *#**•**-**•-*•**#■ 
480 REM MOVE THREE 
490 M0VE=3 

500 WM=WK- 10#INT < WK/ 10) 

510 BM=BK-10*INT (BK/10) 

520 IF ABS(WM-BM)<3 THEN 600 

530 IF A<WK-1)<>46 OR A(WK-18)=BK OR A(W 

K-2) =BK OR A < WK + 8 ) =BK THEN 610 

540 IF A ( l-JK- I 1 ) =BK OR A ( WK + 9 ) =BK OR A(WK 

-22)=BK THEN 610 

550 A < WO =46 

560 WK=WK-1 

570 A ( WK > =ASC ( " K " > 

590 REM 

600 REM MOVES FOUR, FIVE AMD SIX 
610 Z=ABS ( INT (BK/ 10) ~INT<WK/10) ) 
620 IF Z=0 THEN 950 
630 IF 2#INT <Z/2) =Z THEN 790 
640 REM 

650 REM MOVE FOUR 
660 M0VE=4 
670 A (R) =46 

680 IF A ' R - 1 ) < >46 THEN 720 

690 IF A (R-9) =BK OR A(R-11)=BK THEN 720 

700 IF A(R--19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 720 

710 R=R - 1 : GOTO 760 

•720 IF A(R+10)<>46 THEN A<R>=R:GOTO 790 

730 IF A(R+19)=BK OR A(R+21)=BK OR A<R+2 

0)=BK THEN A ( R > = ASC < " R " ) : GOTO 790 

740 IF A(R+11)=BK 0RA(R+9)=BK THEN A(R) 

=ASC ( "R" > : GOTO 790 

750 R=R+10 
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a ( p > = A c ;r ( " p " ) 






7 7 fit 


RETURN 






780 


REM ft*********** 






79.® 


REM MOVE FIVE 






800 


M0\-'E = 5 






810 


j = INT (EK/ 10) 






82©' 


K = BK- 10-M-J 






830 


L=TNT ' WK/ 10) 






840 


M=WK~10#L 






350 


7=10: IF J<L THEM Z = -.L0 






360 


V=1:IF K<"M THEN X=-l 






370 


ft ; uk ) =46 






880 


tj 1 =WK 






890 








900 


G=ABS ( WK-BK > 






9 1 


IF 6=1 OR (3=9 OR 0=10 OR G 


= 11 


THEM W 


K=W .1 


: A < WK) =75: GOTO 950 






920 


A f WK ) =ASC t " K " ) 






930 


RETURN 

1 ■. 1 — I 1 — 1 [.IS 






940 


■ V 1. i I B /H A O V> * I ft -T> /V VA /\ 






950 


PCM MnUP CTV 






960 


M0VE=6 






970 


A (R) =46 






980 


IF R>1 1 THEN IF A<R-12>=BK 


OR 


A (R-2) 


=BK 


OR A (R + 8) =BK OR AIR-DOR 


THEN 


1 070 


990 


IF R>11 THEN IF <A<R-1)=BK 


OR 


A (R-l 1 



)=BK OR A (R+9) =BK THEN 1070 

1000 Y=BK-10*INT <BK/ 10) 

1010 Z=R- 10#INT (R/ 10> 

1020 IF (Z=l. OR Y>2) AND A ' R+ 1 ) =46 R=R + 1 

:QOTO 1040 

1030 R=R-1 

1040 A < R ) =ASC < "R" ) 

1050 RETURN 

.1060 REM ■fc^HHt*******-* 

1070 GOSUB .1320 

.1080 PRINT : PRINT 

1.090 PRINT " I CONCEDE TO THE MASTER" 

1100 END 

111.0 REM 

1 120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER ' Q 5 TO QUIT 

1140 MOVE=0 
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1150 PRINT" >> MOVE TO ( LETTER , NO.)"? 

1 160 INPUT GS 

117.0 IF G35="6!" THEN 128.0 

1180 IF LEN(G*><>2 THEN 1160 

1190 Z=ASC(G*) 

1200 IF 2<65 AMD 2>72 THEM 1160 

121.0 X= VAL < R I GHTS 1 G* , 1 ) > 

1220 IF X< 1 OR X>8 THEN 1160 

123.0 A(BK)=46 

1240 BK=10* (2-64) +X 

1250 IF A <BK> =ASC ( " R " ) THEN QUIT=1 
1260 A ( BK ) = ASC < " $ " ) 
1270 RETURN 
1280 PRINT : PRINT 

1290 PRINT " THANKS FOR THE GAME" 
1300 END 
1310 REM 

1320 REM PRINT BOARD 
1330 PRINT " 
f CLR } " 

134.0 PRINT: PRINT 

1350 IF MOVE>0 THEN PRINT " I USED MOVE "MO 
VE 

1360 IF MOVE=0 THEN PRINT 
1370 PR I NT : PRINT 

1380 PRINT TAB < 1 1 ) 5 " ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 

1 4.00 PR INT TAB '8) 5 J j 

141.0 FOR K=10 TO 30 STEP 10 

1420 PRINT CHR*(A< J+K) ) 5 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

147.0 PRINT TAB ( 1 1 ) J " ABCDEFGH " 

1480 PRINT: PRINT 

1490 RETURN 

1500 REM **-**•*•*■**#•*** 

151.0 REM INITIALISATION 

1520 POKE 53280, 0". POKE 53281 , 0: PRINT " 
<CLR> " 

1530 J=RND * VAL (RIGHT* (TI*, 2) ) ) : REM 
RANDOMIZE 
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154.0 MOME=.0 

155.0 QUIT=0 

156.0 DIM A < 13.0) 

1570 FOR J=10 TO 8.0 STEP .10 

158.0 FOR K=l TO 8 

1590 A< J+K) =46: REM ASCII OF ". 

16.00 NEXT K 

16.10 NEXT J 

162.0 REM ** PLACE PIECES *#■ 

1630 REM BLACK KING - HUMAN 

164.0 RK= I NT t RND < .1 ) #3 ) + 1 

1650 BK=10#BK+BK+INT (RND ( 1 ) *5> 

166.0 A «BK) =ASC < > 

167.0 REM WHITE KING - COMPUTER 

1680 WK= I NT ( RND < 1 ) *4 ) +4 

1 690 WK= 1 0*WK + WK + I NT ( RND ( 1 > #2 ) 

17.00 IF WK-BK THEN 1680 

1710 A (WK) =ASC ( "K" ) 

1720 REM WHITE ROOK -■ COMPUTER 

1730 R=INT(RND(l>*4)+4 

1740 R=10#R+R+INT <RND< 1 >*2) 

1750 IF R=BK OR R=WK THEN 1730 

1760 IF ABS(R-BK) < 12 THEN 1730 

1770 A <R) =ASC ( "R" ) 

1780 RETURN 
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10 REM WASHINGTON D.C. 

20 GOSUE I 160: REM IMITIALISE 

30 REM **************************** 

40 REM MAJOR CYCLE 

50 P=INT <P+ <P*273/ML) } 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

30 REM MOW CHECK EMC GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF GAME=1 THEN PRINT" 

{CLR}":GOTO 390 

130 GOTO 50 

140 REM *************************** 
150 REM PRINTOUT 
160 PRINT" 
{ CLR 3 { WHT } " 

170 PRINT "PRESIDENT " ; AS ; " : " 
180 PR I NT "YOUR ADMINISTRATION HAS BEEN I 
N POWER FOR" Y+Z/4" YEARS" 
190 PRINT" 

II 

200 PRINT" STATE OF THE NATION 

. is 

210 PRINT" 

— — — — » 

220 PRINT"POPULATION"P 

230 PR I NT "NO. UNEMPLOYED 11 1 NT ( U ) " " INT ( 1 
00-3RJ/P) 

240 PR I NT "CURRENT WAGES *"WO" INFLATION" 
INT ( IP) "%" 

250 PRINT " GOVT . EXPENDITURE LAST QTR. *M 
"GE 

260 PRINT "UNEMPLOYMENT COST *M"INT(10*G 
U ) / 1 

270 PRINT " INCOME FROM TAKES iSM" INT < 10*G 
I 1 / 1 

280 PRINT "BUDGET SURPLUS <+)/ DEF I C IT (- ) * 
M" INT (BD*10) / 10 
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290 PRINT"GROSS DOMESTIC PRODUCT SM" INT* 
GDP#I0) / 10 

30.0 IF Y + Z/4>.5 THEM PR I NT " CHANGE IN LIV 
ING STANDARD "5 

305 IF Y+Z/4>.5 THEN PR I NT I NT ( < 2* < (RGDP/ 
AGDP)#100) -100) /3) "%" 

310 PRINT " 

II 

320 PR I NT "PUBLIC INVESTMENT " Y " Q " Z " *M " INT 
< IV*10) / 10 

330 PRINT" 

n 

340 PRINT'-OK, PRESIDENT " 5 A^l 

350 INPUT "ENTER GOVERNMENT SPENDING *M " 

; GE 

360 INPUT " 

{PUR} ENTER COST OF WAGES $M"|WN 

370 PRINT "IS YOUR ADMINISTRATION IN FAVO 

R OF" 

380 PRINT" IMMIGRATION THIS QUARTER <Y/M> 

{WHT} " 

390 GET X$ 

400 IF X93<>"Y" AND X*<>"N" THEN 390 
410 PRINT TAB ( 20) i " OK ..." J X* 
420 FOR H=l TO 1000: NEXT H 
430 IF XSKV'Y" THEN RETURN 
4 40 PRINT " 

f PURJ HOW MANY IMMIGRANTS WILL YOU ALLOW 

INTO THE US" 
450 INPUT M: PRINT " 
{ PUR > " 5 

460 IF M<0 THEN 450 
470 P=P + M 
4S0 RETURN 
490 REM 

500 REM CALCULATIONS 
510 CN=CN+ (CN-M-IP/ 100) 

520 U=P*(GE+IV) / (CN*10> +P*( IP/1000) 
530 GU=U-£WM/ML: REM UNEMPLOYMENT COST 
540 GI= ( ( (P-U) *WN*. 4) /ML) : REM INCOME 

FROM TAXES 
550 BD=BD + GI -GU-GE: REM BUDGET DEFICIT 
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560 AGDP- AGDP* C 1 + < I P / 1 SSi30 > ) 
570 QDP=GE+IV+ ( (P~U)#WM/ML> 
580 PGDP'-GDP#440/AGDP 

590 IP=< '. GE + 1 V ) /CN*. 1+ CWN/WO) 1 00 ) * 1 00 
600 I V= ( CN-X-67 ) / ( I P#I P ) 
610 WO=WN 

620 Z=2+l:lF Z>4 THEN Z=i:Y=Y+l 
630 RETURN 
640 REM 

650 REM CHECK BUDGET DEFICIT 
660 IF BD>-1000 THEN RETURN 
670 GAME=i 
680 FLAG=i 
690 RETURN 
700 REM 

710 REM CHECK STANDARD OF LIVING 
720 IF Y<.75 THEN RETURN 

730 IF INT ( <2# < (RGDP/AGDP) #100) -100) /3) > 

-15 THEM RETURN 

740 GAME— 1 

750 FLAG— 2 

760 RETURN 

770 REM 

780 REM CHECK INFLATION RATE 
790 IF IP<15 THEN RETURN 
800 GAME= 1 
810 FLAG— 3 
820 RETURN 
830 REM 

840 REM CHECK UNEMPLOYMENT 

850 IF INT <U*100/P>< 15 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

890 REM 

900 REM END OF THE GAME 

910 PR . I NT " PRESI DENT " | A* j " , YOUR " 

920 PRINT "ADMINISTRATION' S POOR ECONOMIC" 

930 PRINT " PERFORMANCE HAS LED TO AN UNAC 

CEPTABLE " 

940 IF FLAG= 1 THEN PR I NT "BUDGET DEFICET" 
950 IF FLAG=2 THEN PR I NT "DROP IN THE ST A 
NDARD OF LIVING" 
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960 IF FLAG=3 THEN PRINT"RISE IN THE INF 
LATION RATE " 

970 IF FLAG=4 THEM PRINT"RISE IN UNEMPLO 
YMENT " 

980 PRINT" AMONG OTHER THINGS..." 
990 PRINT" 

...II 

1000 PRINT " THE LACK OF CONFIDENCE IN YOU 
R " 

1010 PRINT "ADMINISTRATION IS SO BAD THER 
E ARE" 

102.0 PRINT-CALLS FOR YOU TO RESIGN... YOU 
STEP" 

1030 PRINT" ASIDE TO ALLOW THE VICE-PRESI 
DENT TO" 

1040 PRINT" OCCUPY THE OVAL OFFICE 

II 

.1050 FOR H-l TO 1000: NEXT H 

1060 PRINT " 

1070 PRINT" YOU WERE PRESIDENT FOR"Y+(Z*. 
251 "YEARS" 

1080 PR I NT "DURING YOUR TERM OF OFFICE, T 
HE" 

1090 PR I NT "POPULATION ROSE BY"P-3*ML 
1100 PR INT "THE UNEMPLOYED RATE BECAME "IN 

T « U# 1 000 / P ) / 1 " % " 

1110 PRINT " AND THE INFLATION RATE BECAME 
" INT ( IP#10) / 10"%" 

1120 PR I NT " STANDARD OF LIVING CHANGED BY 
" INT M2#< !RGDP/AGDP> #100> -100) /3> "%" 
1130 PR I NT "AND THE BUDGET SURPLUS/ DEF I C I 
T WAS $M" INT <BD*10> / 10 

1 140 END 
1150 REM 

1160 REM INITIALISE 

1170 POKE 53230,0:POKE 53281 ,0: PRINT" 
CCLR) " 

11S0 H = RND < VAL ( RI GHT* < T I * , 2 > ) ) : REM 

RANDOMIZE 

1190 ML= 1 000* 1 000 

1200 P=3#ML:REM POPULATION 

1210 U=P/10:REM UNEMPLOYMENT 
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1220 IV=236:REM INVESTMENT 

123.0 GE=J.18:REM GOVERNMENT EXPENDITURE 

1240 GU=0: REM COST OF UNEMPLOYMENT 

125.® G 1=0: REM INCOME FROM TAXES 

1260 WN= 10.0: REM NEW WAGES 

127.0 WQ= 1.00: REM OLD WAGES 

1280 IP=5 : REM INFLATION PERCENT 

129.0 GDP=44.0: REM GROSS DOMESTIC PRODUCT 

1300 AGDP=440: REM BASE YEAR GDP 

131.0 RGDP=440:REM REAL GDP 

1320 CN=354 : REM ECONOMIC CONSTANT 
' USED THROUGHOUT SIMULATION) 

.133.0 z=i:game=0:flag=0 

1 34.0 Y=0: REM YEAR 

1350 PRINT " ENTER YOUR LAST NAME " 

136.0 INPUT A* 

1370 RETURN 
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10 REM STOCK MARKET 

20 POKE 53280,0: POKE 5328 t , : PRINT " 
f CL R> " 

30 C=IMT <RND <VAL 'RIGHT* 'TIS,2) ) > ) : REM 
RANDOMIZE 

40 DIM S <5) , M <5> ,P<5> ,D'5> 

50 S « 1 > = 1 . 49: S (2^ = t . 99: S (3> =2. 49: S (4> =2. 
99: S (5) -3. 49 

60 N'l) =2000: N <2> =1500: M '3> =1200: N <4> =10 
00: N (5^ =800 

70 BB=265 : TV= 1 5000 : O0= 1 5000 : DAY= 1 
80 PRINT: PRINT" 

C PUR > ENTER YOUR GOAL FOR THIS SIMULATION 

9 

90 PRI NTTAB ' 8 > ; "S16,000 TO 93100,000" 

100 INPUT GAL: REM INPUT GOAL 

110 IF GAL < 16000 THEN PRINT " 

{WHT>TOO LOW!" : GOTO 80 

120 IF GAL > 100* 1000 THEN PRINT " 

{WHT>TOO HIGH 1 " : GOTO 80 

140 REM MAJOR LOOP 
150 FOR C=l TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME; 80 VERY HARD, 30 VERY EASY 

170 D < C) =INT ' RMD < J. ) *55) +1 

180 P (C> =INT (RND i. X >*< 100-D <C> ) ) +1 

190 NEXT C 

200 QOSUB 230 

210 GOTO 460 

220 REM 

230 REM PRINTOUT 
240 PRINT" 
{CLR>fWHT>" 

250 PRINT " 



260 PRINT "DAY "DAY" YOUR GOAL IS * 

"GAL 

270 PRINT" 
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280 PR I NT "COMPANY NUMBER : " 

290 PRINT TAB ( 2 ) j 1 5 TAB ( 9 ) » 2 ; TAB (16) ; 3 5 TA 
B(25) 5 4; TAB (35) 55 

300 PRINT "CHANCE OF INCREASE (%):" 

310 PRINT TAB (2) I P ( 1 ) J TAB (9) 5 P <2> i TAB ( 16 

) IP (3) STAB (25) 5P«4) } TAB (35) ; P (5) 

320 PRINT " CHANCE OF DECREASE <%):" 

330 PRINT TAB (2) ! D ( 1 ) 5 TAB (9) ; D (2) 5 TAB ( 16 

) J D (3) ; TAB (25) ; D (4) 5 TAB (35) ; D (5) 

340 PR I NT " CURRENT VALUE PER SHARE:" 

350 PRINT "*="; INT'Sf 15*100) / 1 00 5 TAB ( 8 ) 5 " 

S" j INT (S (2) #100) •' 1005 

360 PRINT TAB ( 15) » "S" ; INT (S (3) * 1.0.0) / 100; 

TAB (23) ; "53" | INT (S (4) #100) / 1001 

370 PRINT TAB (30) ; "S>" J INT (S ( 4 ) #1.0.0) / 1.0.0 

380 PRINT"NO. OF SHARES HELD:" 

39.0 PRINT TAB (2) 5 N ( 1 ) 5 TAB (9) 5 N (2) ; TAB ( 16 

> 5 N ( 3 ) ? TAB ( 25 ) J M ( 4 ) 5 TAB ( 35 ) | N ( 5 ) 

400 PR I NT "BANK * " I NT 1 BB ) " TOTAL WORTH *" 

INT ( J 00#TV) / 100 

410 PRINT" 



420 IF TV >GAL THEN PRINT " YOU' VE HIT YOUR 

FINANCIAL GOAL!":END 
43.0 RETURN 

44.0 REM ###############*##### 
450 REM ## SELL ## 

46.0 PRINT" 

fPUR>DO YOU WANT TO SELL ANY SHARES (Y/M 
) 7 " 

470 GET A* 

480 IF A*<>"Y" AND A3=<>"N" THEN 470 
490 IF A*="N" THEN 690 
500 GOSUB 230 
510 PRINT" 

{WHTJWHICH ONES TO SELL? " 5 
520 GET A* 

53.0 IF ASK"1" OR A*>"5" THEN 52.0 

540 C=VAL (AS) 

55.0 PRINT" 

< WHT •> OK " C 

560 PRINT" 
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{PLIR>HOM MANY OF"C"TO SELL"! 
570 INPUT M 

580 IF N>N(C) THEM PRINT " 

{WHTJYOU DON'T HAVE THAT MANY !": GOTO 570 

600 REM ADJUST FIGURES AFTER SALE 

61.0 bb=bb+s<o#n:rem ADD VALUE TO BANK 

620 N (C.i =N (C) ~N:REM SUBTRACT NO. SOLD 

630 TV=0:REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C=l TO 5 

660 TV=TV+N(C)*S(C) 

670 NEXT C 

680 TV=TV+BB:REM ADD IN BANK BALANCE 

690 GOSUB 230 

700 REM 

710 REM BUY 

720 PRINT " 

{PUR>DO YOU WANT TO BUY ANY SHARES (Y/N) 
r? •■ 

730 GET A* 

740 IF A*<>"Y" AND A«<>"N" THEN 730 

750 IF A$="N" THEN 890 

760 GOSUE 230 

770 PRINT " 

{PURIWHICH COMPANY TO BUY? " 5 

780 GET A* 

790 IF AS<"1" OR A* > " 5 " THEN 780 

800 C=VAL«A«) 

810 PRINT" 

{ WHT } OK"C 

820 PRINT" 

{ PUR } HOW MANY OF"C"TO BUY"; 

830 INPUT N 

840 IF N*S <C> >BB THEN PRINT" 

<WHT>YQU DON'T HAVE ENOUGH MONEY ! " : GOTO 

830 

850 REM 

860 REM ADJUST FIGURES AFTER BUY 

870 BB=BB-S'C)#N 

880 N ( C > =N ( C l +N 

890 TV=0 
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900 FOR C=.l TO 5 
9J0 TV=TV+N(C)*S<C) 
920 NEXT C 
930 TV=TV+BB 
940 GOSUB 230 
950 REM 

960 REM MODIFY ALL INDICATORS 
970 TV=0 

930 FOR C=l TO 5 

990 K=INT (RND < 1 ) #100) +1 

1000 IF K<P(C> THEN S(C)=S(C)#(i+<P(C>/l 

000) ) 

1 10 K= I NT < RND ( 1 ) * 1 00 ) + 1 

1020 IF K<D(C) THEN S ( C > =S ( C ) /( 1 + ( P « C > / 1 

000) ) 

i 030 TV=TV+ i S i. C ) '#N ( C ) ) 

1040 NEXT C 

1050 TV=TV+BB 

1060 QQ=Q<3+1 

1070 W= <TV#100/QQ) -100 

1080 IF W=0 THEN W=. 1 

1090 W=W+A 

1100 IF W<1 THEN W=t 

1110 IF W>15 THEN W=15 

1120 RESTORE 

1130 FOR T=l TO W 

1 140 READ A* 

1150 NEXT T 

1160 PRINT 

1 1 70 REM ************^***-***- 

1130 REM GIVE RATING, START NEW ROUND 

1190 PRINT " 

{WHTJYOUR RATING AFTER THAT ROUND OF" 

1200 PR INT" TRAD I NG IS * »;A*i" 

1210 PRINT: PRINT " 

{PUR J < PRESS SPACEBAR TO CONTINUE >" 

1220 GET ZZ*:IF ZZ*<>" " THEN 1220 

123© DAY=DAY+1 

1240 GOTO 150 

1250 DATA "HOPELESS" , "VERY, VERY POOR" 

1260 DATA "TERRIBLE" , "AWFUL" , "BAD" 

1270 DATA "VERY ORDINARY" , "AVERAGE" 
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1280 DATA "REASONABLE" „ "A LITTLE ABOVE A 
VERAGE" 

129.0 DATA "FAIRLY GOOD "," GOOD "," VERY GOO 
D " 

130@ DATA "GREAT" , " EXCELLENT " , " SUPERLATI 
VE " 



286 



DETROIT CITY / Commodore 64 version 



1.0 REM DETROIT CITY 

20 GOSUB 1640: REM INITIALISE 

3.0 GOTO 11.0 

40 MT=MT+1 

50 GOSUB 65.0 

60 IF TP > 200 THEM 1560 

7.0 PRINT" 

{CYNJDO YOU WANT TO RESIGN < Y/N) ?{ WHTJ " 
S0 GOSUB 1.010 

90 IF A*-"Y" THEN PR I NT "OK, CHIEF": END 
10.0 GOSUB 1380 
1 1.0 GOSUB 650 

120 FOR T=l TO 10.0.0: NEXT T 
130 GOSUB S50 

140 PR I NT "DO YOU WANT TO EXPAND OUTPUT < 
Y / N > ? " 

150 GOSUB 1010 

160 IF A*="Y" THEN 1030 

17.0 IF SF=1 THEN 210 

130 PR I NT "DO YOU WANT TO SELL FACTORY 4 

(Y/N) ?" 

190 GOSUB 1.01.0 

20.0 IF A$="Y" THEN 1250 

210 GOSUB 650 

22.0 INPUT " HOW MANY EMPLOYEES TO HIRE " 5 H 
E 

23.0 NE=NE + HE: IF HE>0 THEN 260 

240 INPUT " HOW MANY EMPLOYEES TO FIRE " 5 H 

E 

25.0 NE=NE-HE 
260 GOSUB 650 

27.0 P1=AS:REM SET PI EOUAL TO OLD PRICE 
230 INPUT "WHAT IS YOUR SELLING PRICE" J A 

S 

29.0 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS (PI- AS) > 25.0.0 THEN PRINT"TOO BI 
G A CHANGE FOR THE MARKET": GOTO 280 
310 PRINT" 
{ CLR } " 

32.0 PR I NT : PRINT : PRINT 
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330 M I = I NT < RND '. 1 > #4000 ) + 4 8# 1 000 : REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=C+i : REM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEN 470 

360 M=INT (RND ( 1 ) *10+1 ) /4: REM INFLATION 
370 PRINT" 
<CLR> " 

330 PRINT "INFLATION RATE THIS QUARTER IS 
"M"%" 

390 PR I NT " AVERAGE WAGES BILL WILL NOW RI 
SE TO" 

400 AW= < A W#M / 1 00 ) + AW, 

410 PR I NTT AB (8) J INT (AW) " PER EMPLOYE 
E " 

420 GET ZZS>: IF ZZ*< > "" THEN 420 

430 PRINT : PR I NTT AB < 1 2 ) ; " ANY KEY TO COMTI 

NUE " 

440 GET ZZSJIF ZZ*="" THEN 440 
450 FA= '. FA*M / 100) +FA 
460 C -0 

470 Y ' 1 > =NE*15/ 12: REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y<2)=M100-A3/FA)*MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINE SETS LOWEST FIGURE 

FROM Y!l>, Y<2), M<5) EQUAL TO Y(3) 
500 IF Y(1!<Y(Z) AND YI1XMI5) THEN Y(3) 
=Y ( 1 ) : GOTO 540 

510 IF Y(2XY(1) AND Y(2XM<5) THEN Y<3> 
=Y (2) : GOTO 540 
520 Y(3)-Mf5) 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS (P1-ASX501 THEN Y ( 3 > =3 . 6#Y ( 3 ) 

/3 

550 IF Y '3) >M (5) THEN Y (3) =Y (3) -1975: GOT 
□ 550 

560 MC= <MC*M/ 100) +MC 

570 EF=Y (3) /M(5)*100:REM EFFECIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC= (MC* < ABS <S5-EF) /3> / 100) +MC: REM 
AVERAGE COST PER VEHICLE 
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59.0 MP= ( (Y <3)*( AS-AC) ) - <NE*AW/ 12) ) : REM 

MONTHLY PROFIT 
60.0 MF= INT ( MP / C 1 00* 1 000 ) > 
610 TP--TP + MP/ 10: REM TOTAL PROFIT 

IM MILLIONS 

620 M~0 
630 GOTO 40 

640 REM ^****^'5HHHHHt#***#***^#**** 
650 REM REPORT PRINTOUT 
660 PRINT" 
{ CLR J " 

670 PRINT" INDUSTRY SALES "MI "III MONTH " MT 
680 IF MT>0 THEN PRINT"YOUR SALES : " INT ( Y 
<3>>" ( "INT<Y(3)*1000/MI> /10"% OF TOTAL 
) " 

690 PRINT"--- 

II 

700 PR I NT " YOU HAVE " NE " EMPLOYEES " 

710 PRINT "AVERAGE WAGES ARE $ "AW 

720 PR I NT " OR *M " I NT < AW*NE / < 100*1000 ) / l 

2) / 10 "PER MONTH" 

730 PRINT " 

_. _ ™ " 

740 IF MT=0 THEN RETURN 

750 PRINT" AVERAGE COST PER VEHICLE IS *" 
INT I AC ) 

760 PR I NT " AND AVERAGE SELLING PRICE IS % 
" INT (AS) 

770 PRINT"SO THE AVERAGE PROFIT IS $"INT 
«AS-AO 

780 PRINT"OR *M"INT( (AS-AC )#Y<3)/< 100*10 
00) W 10" PER MONTH " 

790 PRINT" 

— ™ «. II 

800 PR I NT "PROF IT FOR THE MONTH IS *M"MP/ 

10 

81.0 PRINT" 8; TOTAL PROFIT TO DATE IS $M"I 
NT (TP*10> / 10 

820 PRINT" 

— — _ '* 

830 RETURN 

840 REM **************************** 
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850 REM MONTH REPORT 
86.0 PRINT" 
{ CLR } " 

3'?® IF MT>0 THEM PRINT "YOUR MONTHLY SALE 
S ARE " I NT (Y (3> ) 

88.0 PRINT " 

89.0 PRINT"MAXIMUM MONTHLY OUTPUT: " 

900 PRINT TAB (3) 5 "FACTORY 1 : " I NT ( M ( 1 ) ) 

910 PRINT TAB (3) ; "FACTORY 2:"INT<M<2>> 

920 PRINT TAB (3) 3 "FACTORY 3:"INT<M!3>) 
930 IF SF=i THEN 960 

940 PRINT TAB(3) 5 "FACTORY 4 : " INT « M (4) ) 

950 PRINT" ; 

960 PRINT "TOTAL OUTPUT IS" INT (M (5) > 

970 PRINT" 

— 11 

980 PRINT "EFFICIENCY LEVEL IS" INT (EF ) "% 

II 

990 RETURN 

1 .0.0.0 REM 

10.10 REM GET REPLIES 

1.02.0 GET AS 

1.03.0 IF A*<>"Y" AND A*<>"N" THEN 1.020 

1040 PRINT TAB (22) ; A* 

105.0 FOR J = l TO 50.0: NEXT J 

1060 RETURN 

1070 REM 

1080 REM INCREASE OUTPUT? 

1.090 IF M<4>=0 THEM X=15:G0T0 1110 

1100 X=13 

1110 PRINT" IT WILL COST SM"X" TO EXPAND" 

1120 PRINTTAB (8) 5 "OUTPUT BY 1%" 

1130 PRINT " 

II 

1140 PRINT "HOW MANY % DO YOU WISH TO RAI 
SE OUTPUT" 

1150 INPUT EP:IF EP<0 OREP> 1.0.0 THEM 1150 

1160 M<5)=0 

1170 FOR T=l TO 4 

1180 M(T>=M<T>+M(T)#EP/100 

1 190 M (5) =M (5) +M (T) 
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1200 NEXT T 

1210 TP=TP-EP#X 

1220 FOR T = l TO 500: NEXT T 

1230 GOTO 170 

1240 REM X*******************,******** 
1250 REM SALE OF FACTORY FOUR 
1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT SM104" 

1270 PRINT " YOU CAN'T REBUY IT LATER IF 

YOU SELL IT..." 
1280 PRINT" DO YOU WANT TO SELL <Y/N>?" 
1290 60SUB 1010 
1300 IF A$="N" THEN 210 
1310 TF=TP+104 
1320 SF=1 

1330 M 5 5) =M ( 1 ) +M<2) +M (3) 
1340 M(4)=0 
1.350 GOTO 170 

1360 REM **************^***********# 

1370 REM CHECK ON LOSSES 

.1380 IF MP>0 THEM SA=0:GOTO 1480 

1390 SA=SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 PRINT" 

{CLR > " : PRINT 

1430 PR I NT "YOU JUST MADE YOUR TWELTH MOM 
THLY " 

1440 PR I NT "LOSS IN A ROW 

II 

1450 PRINTTAB <6> ; "YOUR EMPLOYMENT" 

1460 PRINTTAB (6) ;" IS HEREBY TERMINATED ! ! 

II 

1470 END 

1480 IF TP>--250 THEN 1350 
1490 PRINT" 
{CLR » " : PRINT 

1500 PR I NT "UNDER YOUR MANAGEMENT, THE CO 
MPANY HAS " 

1510 PRINT"LOST MORE THAN *M250 ! " 

1520 GOTO 1450 

1530 IF TP > 200 THEN 1570 

1540 RETURN 
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1550 REM ft*************************** 
1560 REM SWEET SWEET SUCCESS!!! 
157.0 PRINT" 
{ CLR > " : PR I NT 

1580 PRINT "WELL DONE! THE COMPANY HAS MA 
DE MORE " 

1590 PRINT" THAN *M200. YOU'VE BEEN 
MADE » 

1600 PRINT " A MEMBER OP THE BOARD 

II 

1610 FOR T=l TO 2000: NEXT T 
1620 END 

1630 REM ******************X X X ******* 
1640 REM INITIALISE 

1660 T=RND ( VAL < RIGHT* (TI*, 2) ) ) : REM 

RANDOMIZE 

1670 DIM M (5) , Y (5) 

1680 NE= 12000: REM STARTING NO EMPLOYEES 
1690 AW=22995:REM STARTING AVERAGE WAGE 
1700 AC = i 1 100: REM COST PRICE/ VEHICLE 
1710 AS= 12000: REM SELLING PRICE 
1 720 M I =50* 1 000 : MC= 1 1 00 
1730 Y< 3) =12500 

1 740 MS=25 : EF=77 : F A= 1 60 : SF=0 : MT=0 
1750 FOR J=l TO 5 
1760 READ M«J) 
1770 NEXT 2 

1780 POKE 53280, 0: POKE 53281 , 0*. RETURN 
1790 DATA 8900,3250,2500,1625,16275 
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53281 ,0 



5 POKE 53280, 0: POKE 
10 REM GRIDIRON 
20 PRINT " 
{ CLR J " 

30 X=RND < VAL (RIGHTS <TI* ? 2) ) ) : REM 
RANDOMIZE 
40 GOSUB 70 
50 GOTO 220 

60 REM *********##**#*****-x-*#.*. 
70 FOR X=l TO 1500: NEXT X 
80 RETURN 

90 REM ***********#***-*•*-*#•■**## 
100 PRINT A*; SA 
110 PRINT B«; SB 
120 RETURN 

140 IF Z*=A» THEN Z*=B* : RETURN 
150 Z*=A«: RETURN 
160 REM 

170 GET ZZft: IF ZZ*<>"" THEN 170 
180 PRINT" > PRESS ANY KEY < " 

190 GET ZZ*: IF ZZ*=" " THEN 190 
200 PRINT TAB < 20) 5 "OK" : RETURN 

220 REM INITIALISE 

230 DEF FN A ( X ) = I NT ( RND < 1 )*X> +1 

240 PRINT" 

{ WHT JONE PLAYER OR TWO" 
250 INPUT X 

260 IF X< 1 OR X>2 THEM 250 

270 IF X=l THEN VC=1 : A*=" SILICON COWBOYS 
" : GOTO 300 

280 PR I NT "WHAT IS THE NAME OF THE HOME T 
EAM " 

290 INPUT 
300 PRINT" 
SITING 
310 INPUT 
315 A 35=" 

{ WHT> " +A«: B*= " { PUR > " +B* 
320 Z*=A*:NU=35 



AS: IF A«=" " 
' AND WHAT IS 
TEAM" 

B*: IF B$=" " 



THEN 290 
THE NAME 

THEN 310 



OF THE VI 
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33.0 PRINT" 
{ C L R > " 

340 PR I NT "THERE ARE " I NT ( 10* < 6.0- <W/4) ) > / l 
0" MINUTES TO GO" 

350 PRINT TAB (8) 5 2S" TO KICK OFF " 
360 PRINT " 

CWHT>YOU ARE ON YOUR OWN "NU" YARD LINE" 
370 IF VC=i AND Z*=A35 THEN GOSUB 70: GOTO 
40.0 

330 PR I NT "TO KICK OFF..." 
390 GOSUB 170 
400 A=FNA i 20) +4.0 

410 PRINT Z»; " HAVE " 

420 FOR X=l TO A 

430 PRINT TAB (X/3) I " K I CKED " X " YARDS " 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT " 

I PUR >THE BALL IS CAUGHT ! " 
430 GOSUB 70 
490 A=FNA < 30) +10 
500 FOR X=l TO A 

510 PRINT TAB (X/5) 5 "AND RETURNED " X " YARDS 



560 PR I NT " THE BALL IS DOWN ON" 

570 PRINT ZS5 " ' S " NU " YARD LINE" 

580 IF ZS=A* AND VC=1 THEN GOSUB 70: GOTO 

600 

590 GOSUB 170 

600 tg=10:d=0:sl=nu 

610 if w=60 or w=180 then 2010 

620 IF W=120 THEN 2070 
630 IF W=240 THEN 2140 
640 PRINT " 
{ CLR > " 

650 PRIMTLEFT*(A*, 6) ; SA ; LEFT* < BS> , 6 ) ? SB 



520 
530 
540 
55.0 



NEXT X 

NU=ABS ( 100-NU+X) 
GOSUB 140 
PRINT" 
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660 PRINT I NT < 10* (60- <W/4) ) ) / 10 "MINUTES 
TO GO" 

670 GOSUB 70 

680 PRINT" 

690 PRINT Z*" IN POSSESSION" 

700 PRINT TAB (4) 5 D" DOWN" 

710 PRINT TAB (4) ; TG" YARDS TO GO" 

720 PRINT"' ■ 

730 PRINT " START AT "SL" YARD L I NE " 

740 PR I NT "NOW ON "NU" YARD LINE" 

750 PRINT 100-NU" YARDS TO TOUCHDOWN " 

760 PRINT " 

770 PRINT "ON THIS PLAY "5 

780 IF 735=AS> THEN PRINT A*| " CAN" : GOTO 8 
00 

790 PRINT B*5 " CAN" 
800 PR INT" EITHER 1 - THROW " 
810 PRINT" 2 - CARRY" 

820 PRINT" OR 3 - PUNT " 

830 P=0 

840 IF A$=Z* AND VC=1 AND D<3 THEN P=2: G 
OTO 900 

850 IF AS=Z<S AND VC=1 AND TG<7 THEN P=2: 
GOTO 900 

860 IF A*=Z$ AMD VC=1 AND (100-NUX31 TH 
EN P=3 : GOTO 900 

870 IF A*=Z* AND VC=1 THEN P=l:GOTO 900 

880 GET K*: IF KS< M 1 " OR K*>"3" THEN 880 

890 P=VAL (KSD : PRINT TAB (10) | "OK"P 

900 GOSUB 70 

910 W=W+1 

920 PRINT" 

{ CLR } " 

930 PRINT 2m;", YOUR QUARTERBACK HAS" 

940 PR I NTT AB (8) ; "GOT THE BALL" 

950 PRINT" 

— — — _ » 

960 PR I NT "WAIT FOR THE COUNT, ";ZSJ% " 
970 PRINT TAB (8) f "THEN HIT ANY KEY..." 
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980 GET ZZS: IF ZZ*>< > " " THEN 980 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E=l 1 THEN 2340 

1020 FRINT " 

II 

1030 ON P GOTO 1050,1310,1590 

1040 REM ***4HHe#**#*#*#*##*#*#*# 

1050 PR INT" YOU ' VE THROWN " E*5 " YARDS " 

1060 PR I NT "AND THE PLAY IS..." 

1070 A=FNA ( 8 ) 

1080 IF A=l THEN 1520 

1090 A=FNA < E+ 1 ) 

1100 IF A=l THEN PR I NTT AB (20) ? " . . . CQMPLE 
TE " : GOTO 1220 

1110 PRINT TAB (20) 5 "... INCOMPLETE" : D=D+1 

1120 GOSUB 170 

1130 PRINT" 

,11 

1 140 IF D>3 THEN 1 160 
1150 GOTO 610 

1160 PRINT " THAT WAS YOUR 4TH DOWN" 

1170 PRINT" AND YOU'VE LOST POSSESSION! ! " 

l 180 d=0:tg=10:nu=abs( 100-nu) : sl=nu 

1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
1220 GOSUB 170 

1230 NU=NU+ <E*5) : TG=TG- (E*5) 
1240 IF NU>100 THEN 1800 
1250 IF TG< 1 THEN 1280 
1260 D=D+1 : IF D>3 THEN 1 160 
1270 GOTO 610 

1280 d=0:tg=10:sl=nu 

1290 GOTO 610 

1300 REM 

1310 A=FNA ( 15) 

1320 IF A=l THEN 1510 

1330 E=A-5 

1340 IF E<0 THEN 1440 
1350 IF E=0 THEN E=l : GOTO 1370 
1360 PRINT" GOOD SNAP, PASS AND RUN" 
1370 PR INT "YOU'VE GAI NED " E " YARDS " 
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1380 GOSUB 170 

1390 TG=TG-E:NU=ABS <NU + E) : D = D+1 
1400 IF NU > 100 THEM 1800 
1410 IF TG< 1 THEN 1280 
1420 IF D>3 THEN 1160 
1430 GOTO 610 

1440 PR I NT "GREAT RUNNING BY THE OPPOSITI 
ON HAS" 

1450 PRINT" CAUSED YOU TO LOSE " ABS < E ) " YAR 

DS" 

1460 TG=TG-E : NU=NU+E : D=D+ 1 
1470 GOSUB 170 
1480 IF D>3 THEN 1160 
1490 GOTO 610 

1500 REM *********************** 

1510 PR I NT " BAD SNAP ... YOU ' VE " 

1520 PRINT-FUMBLED. . .AND" 

1530 PR I NT "YOU'VE LOST POSSESSION..." 

1540 NU=100-NU: D=0: TG=10:SL=NU 

1550 REM ********************* 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM *********************** 

1590 PR I NT "NICE PUNT . . . " 

1 600 PR I NT "YOU'VE KICKED" E*4 " YARDS " 

1610 NU=NU+E*4 

1620 IF NU>100 THEN 1650 

1630 PRINT" 

1640 GOTO 460 

1650 A=FNA (3) 

1660 IF A>1 THEN 1740 

1670 PR I NT "BUT YOU' VE MISSED THE GOAL ! ! " 

1680 IF NU-E*4<80 THEN NU=ABS ( 100- (NU-E* 
4) ) : GOTO 1700 

1690 NU=20 

1700 D=0: TG=10!SL=NU 

1710 GOSUB 140 

1720 GOSUB 170 

1730 GOTO 610 

1740 PRINT" .......... AND SCORED ! " 

1750 IF Z*=B* THEN SB=SB+3: GOTO 1770 

1760 SA=SA+3 
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1770 GOSUB 100 

1780 GOSUB 170 

1790 NU=35: GOTO 330 

1800 PRINT" 
{ CLR } " : GOSUB 4000 

1810 FOR X=l TO 5 

1 820 PR I NTTAB ( X*2 ) 5 " TOUCHDOWN ! ! ! " 

1830 NEXT X 

1840 IF Z*=A* THEN SA=SA+6: GOTO 1860 

1850 SB=SB+6 

1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 

1890 PRINT" 

1 900 PRINT "THE BALL IS SNAPPED ... PREP AR 

E TO KICK ! " 

1910 GOSUB 70 

1920 GOSUB 2200 

1930 IF E>9 THEN PRINT " YOU MISSED" : NU=20 
: GOTO 1970 

1940 PRINT-YOU SCORED. . . " : NU=35 

1950 IF Z*=A* THEN SA=SA+1 -.GOTO 1980 

1960 SB=SB+1 : GOTO 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X=l TO 10 

2020 PRINT TAB <2*X> ; "PERIOD OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 

2060 GOTO660 

2070 FOR X=l TO 10 

2080 PRINT TAB <2*X) ; "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 ZS=B3i 

2120 GOSUB 170 

2130 NU=35 : W=W+2 : GOTO 330 

2140 FOR X=l TO 10 

2150 PRINT TAB < 2#X > 5 "GAME OVER" 
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216.0 NEXT X 
2170 GOSUB 100 
2180 END 

2190 REM *********************** 
2200 E=0:X=10 

2210 IF Z*=A* AND VC = 1 THEN PRINT"THIS O 
NE FOR " ; A*: GOTO2290 
2220 E=E+l:X=X-l 
2230 PRINT TAB ( E ) JE 
2240 FOR Y=l TO X*1.5 

2250 GET 2Z«: IF ZZtSO '"' THEN Y=X*1 . 5+1 : R 
ETURN 

2260 NEXT Y 

2270 IF E=ll THEN RETURN 

2280 GOTO 2220 

2290 FOR E=l TO FNA (7) +2 

2300 FOR J=l TO 60: NEXT J 

2310 PRINT TAB ( E ) ;E 

2320 NEXT E 

2330 RETURN 

2340 PRINT-TOO LATE!" 

2350 PRINT-YOU' VE BEEN SACKED ! " 

2360 E=FNA<4> 

2370 IF E=3 THEN 2430 

2380 PR I NT "AMD LOST FIVE YARDS!" 

2390 TG=TG+5 : D=D+1 : NU=NU-5 

2400 GOSUB 170 

2410 IF D>3 THEN 1160 

2420 GOTO 610 

2430 PRINT" AND LOST POSSESSION! " 

2440 D=0: NU=ABS ( 100-NU+5) : SL=NU: TG=10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1 S 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR Ll=48 TO 220 STEP .7 
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4.09.0 POKE SID+1 , LI 

4100 NEXT Li 

4110 FOR LI =28 TO 20.0 

4120 POKE SID+1, LI 

4130 NEXT LI 

414.0 FOR Li =200 TO 28 STEP -1 

4150 POKE SID+1, LI 

416.0 NEXT Li 

4170 POKE SID+1 , 

4180 RETURN 
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10 REM TENNIS 

20 POKE 53280,0: POKE 53281 , 0: PRINT" 
C CLR } " 

30 D=RNDfVAL<RIGHT*<TI*,2) ) ) : REM 
RANDOMIZE 

40 AA=0: BB=0: T=0: KA=0 

50 XA=0: YA=0: 2A=0 

60 XB=0: YB=0: ZB=0 

70 DEF FNA(X)=INT<RND(1>*X>+1 

80 INPUT "ONE HUMAN PLAYER OR TWO"; A 

90 IF A<1 OR A>2 THEN 80 

100 IF A=l THEN A*="BJORNX" : VC = 1 

110 IF VC=1 THEN 160 

120 PR I NT "PLEASE ENTER SIX-LETTER NAME" 
130 INPUT "NAME OF FIRST PLAYER" J A* 
140 IF LEN (AS) <6 THEN A*=A*+CHR* ( 32 ) : GOT 
O 140 

150 A*=LEFTS5 ( A* s 6) 

160 INPUT "NAME OF SECOND PLAYER" ; BS 
170 IF LEN (B*) <6 THEN BS>=B9s+CHR* C 32 > : GOT 
O 170 

180 B*=LEFTS5 <B*, 6) 
190 S=l : AA=1 : BB=1 
200 PRINT" 
{CLR> " 
205 A*=" 

{ pur > " + a* : b$= " { wht } " +b* 

210 p$=as:r*=b$ , 

220 REM *##*#*****##***###*#########4HH<- 
230 IF P*=AS THEN RS==B3> 
240 IF P3i=B* THEN R*=AS> 
250 PRINTPS? " SERVING" 

260 PR I NT "DO YOU WANT TO SERVE 1 - FAST" 
270 PRINT" OR 2 - SLOW" 

280 IF P*=A* AND VC=1 AND SC=0 THEN KB=1 
JGOSUB 1720: GOTO 330 

290 IF Pft=A35 AND VC=1 AND SC = 1 THEN KB=2 
: GOSUB 1720: GOTO 330 
300 GET K$ 

310 IF K*< " 1 " OR K* > " 2 " THEN 300 
320 KB=VAL<K$>> 



Commodore 64 



33.0 print:printtab<6) ;kb;tab(10) ; M > IT'S 

A "I 

340 IF KB=1 THEN PRINT " FAST " i 
350 IF KB=2 THEN PR I NT" SLOW " ; 

360 PRINT " SERVE " 

370 SOSUB 1720 

380 IF KB=1 THEN EB=FNA ( 3 ) : GOTO 400 

390 EB=FNA(8) 

400 IF EB=1 THEM 450 

410 IF EB=3 AND SC=0 THEN 520 

420 IF EB=3 AND SC=1 THEN 590 

430 GOTO 670 

440 REM ******************************* 
450 PRINT" 

{ CLR > " : PRINT : GOSUB 4000 

460 PRINT TAB (8) ACE. ... " 

470 GOSUB 1720 

480 SC=0 

490 IF pgs=A* THEN 1140 
500 GOTO 1150 

510 REM ******************************* 
520 PRINT" 
{CLR} " I PR I NT 

530 PRINT TAB ( 12) i "... . OUT. 

540 PRINT TAB (8) ; " . . . SECOND SERVE..." 

550 GOSUB 1720 

560 SC=1 

570 GOTO 230 

580 REM ******************************* 
590 PRINT" 
{CLR} " : PRINT 

600 PRINT TAB (12) 5 " OUT " 

610 PRINT TAB (8) I ".. .DOUBLE FAULT..." 
620 GOSUB 1720 
630 SC=0 

640 IF P*=AS THEN 1150 
650 GOTO 1140 

660 REM ******************************* 
670 SC=0 
680 PRINT" 
{CLR}" SPRINT 

690 GET 22*: IF ZZSO"" THEN 690 
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700 PRINTRS; " , THE BALL IS": PRINT" IN YOU 
R COURT" 

71.0 PRINT" .. 

720 IF R35=A35 AND VC=1 THEM 750 

730 PR I NT "HIT ANY KEY, WHEN YOU SEE THE 

2ERO » TO RETURN THE BALL..." 

740 GET ZZ«: IF ZZ*< >" " THEN 740 

750 X=4*FNA<3> : Y=X 

760 GOSUB 1720 

770 E=5 

780 PRINTTAB<2*(11-E) ) ;E 

790 Y=Y-1 
800 GET S* 

810 IF S»< > " " AND E=0 THEN 890 

820 IF SSK > " » THEN 990 

830 IF Y>0 THEN 790 

840 E=E-1 : Y=X 

850 IF E<-1 THEM 990 

860 IF E=-l AMD R*=A* AMD VC = 1 THEN 890 
870 GOTO 780 

880 IF KB=1 THEN EA=FNA<2) : GOTO 1000 
890 E A=FNA ( 4 > 

900 IF E=0 AND R*=Aft AND VC=1 THEN EA=FN 
A (8) 

910 IF EA=1 THEN 940 

920 IF R9S=A* THEN R*=B*: GOTO 670 

930 R*=A13:G0T0 670 

940 PRINTR35J " , YOU'VE HIT THE BALL" 
950 PRINT TAB < 8 ) ; "OUT OF PLAY..." 
960 GOSUB 1720 

970 IF R35=A3> THEN R*=B»: GOTO 1150 

980 GOTO 1140 

990 EA=FNA ( 4 ) 

1000 IF EA=1 THEN 1070 

1010 PR I NT "YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT" IT WAS IN... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF RS3=A<S THEN RS5=BS»:GOTO 1140 
1060 GOTO 1140 

1070 PRINT"YOU MISSED THE BALL AND..." 
1080 GOSUB 1720 
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1090 PRINT" IT WAS OUT... WELL LEFT" 

1100 GOSUB 1720 

1110 IF R*=A95 THEN RS=B*: GOTO 1140 

1120 GOTO 1150 

1130 REM ****************************** 

1140 AA=AA+ 1 : GOTO 1160 

1150 BB=BB+i 

1 J 60 IF AA<5 AMD BB<5 THEN 1230 

1170 IF (BB>4 AND AA<4) OR (BB>4 AND BB- 

AA>1) THEN AA=1 : BB=1 : GOTO 1500 

1180 IF <AA>4 AND BB<4) OR < AA>4 AND AA- 

BB>1 ) THEM AA=1 : BB=1 : GOTO 1440 

1190 IF AA>4 AMD AA >BB THEN C«= " ADV " : D$= 

" " : GOTO 1320 

1200 IF BB>4 AND BB > AA THEN D$= " ADU " : C*= 

" ":GOTO 1320 

1210 C*= M ( DEUCE " : DS>= " C DEUCE " : GOTO 1320 

1220 REM ****************************** 

1230 RESTORE 

1240 FOR D=l TO AA 

1250 READ C* 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=i TO BB 

1290 READ D* 

1300 NEXT D 

1310 REM ****************************** 

1320 PRINT" 
{CLR> " 

1330 PRINT" " 

1340 PRINT" SET SET SET" 

1350 PRINT" " 

1360 PRINT" 12 3 GAME" 

1370 PRINT A*?" " ; XA5 " " 5 YA 5 " "?ZAf" " 
5 CSS 

1380 PRINT B*i " "fXBS" "?YBf" "jZB?" " 
! D* 

1390 PRINT" " 

1400 GOSUB 1720 

1410 IF T< >1 THEN 230 

1420 END 

1430 REM ****************************** 
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1440 PRINT" 
I CLR J " 

1450 PR I NT "GAME TO " J AS 
1460 GGSUB 1720 

1470 IF S=l THEN XA=XA+ 1 : C95= "0" : D53= "0" : 6 
OTO 1560 

1480 IF S=2 THEN YA=YA+1 : C35="0" : D*="0» : G 
OTO 1580 

1490 IF. S=3 THEN ZA=ZA+ 1 : C*= " " : D*= " " : G 

OTO 1600 

1 500 PRINT" 

{CLR} " 

1510 PR I NT " GAME TO " ; B* 
1520 GOSUB 1720 

1530 IF 3=1 THEN XB=XB+ 1 : C$= "0" : D*= "0" : G 
OTO 1560 

1540 IF S=2 THEM YB=YB+ 1 : C*="0" : DS="0" : G 
OTO 1580 

1550 IF S=3 THEN ZB=ZB+ 1 : C33= "0" : DS= " " : G 
OTO 1600 

1560 IF (XA>5 AND XB<5) OR (XA<5 AND XB> 
5) THEN 1630 

1570 IF <XA>5 AND XA-XB>1) OR (XA>5 AND 
XB-XA>1> THEM 1630 

1580 IF (YA>5 AND YB<5) OR ( YA<5 AND YB> 
5) THEN 1630 

1590 IF (YA>5 AND YA- YB > 1 ) OR (YA>5 AND 
YB- YA > 1 ) THEN 1630 

1600 IF <ZA>5 AND ZB<5) OR (2A<5 AND ZB> 
5) THEN 1680 

1610 IF (ZA>5 AND ZA-ZB>1) OR <ZA>5 AND 
ZB-ZA>1 ) THEM 1680 
1620 GOTO 1640 
1630 S=S+1 
1640 AA=i ;BB=1 

1650 IF PS=A* THEN R*=A* : P*=B* : GOTO 1320 
1660 P*=A*: R*=BS: GOTO 1320 

1670 REM *-)BHe-*^^******#*********###*# 
1680 T=l 
1690 GOTO 1320 
1700 REM 
1710 REM DELAY 
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1720 FOR M=J. TO 1000: NEXT M 

1730 RETURN 

1740 DATA "0", "15", "30", "40" 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1 5 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5, 15 

4060 POKE SID+6,255 

4070 POKE SID+4, 17 

4030 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1 , LI 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1, LI 

4160 NEXT LI 

4170 POKE SID+1 , 

4180 RETURN 
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10 REM GRAND PRIX 
20 60SUB 2200". REM INITIALISE 
30 GOSUB 1190: REM CHOOSE TRACK 
40 REM 

50 REM MAJOR LOOP 

60 GOSUB 120: REM PRINTOUT 

70 GOSUB 280: REM ACCELERATION /CHECK 

80 GOSUB 450 : REM ENGINE / BRAKES 

90 GOSUB 500 : REM CORNER / POS I T I ON 

100 GOTO 60 

110 REM 

120 REM PRINTOUT 
130 PRINT " 
{CLR* { PUR1 " 

140 PRINT "ENGINE TEMPERATURE " I NT ( ENG*10 ) 
/10"C. (MAX. 200) " 

150 PR I NT " BRAKE TEMPERATURE: " I NT < BRAK*1 
)/10"C. (MAX. 500) " 

160 PRINT" DISTANCE COVERED : " INT ( DIST-X-10 
) / 10" METERS " 

170 PRINT" : " I NT (DIST*10 

0/RR) / 100 "LAPS" 

180 PRINT" YOU' RE IN POSI T I ON " I NT < FP > 

190 PRINT" 

200 PRINT" CURRENT SPEED : " I NT < SPEED* 1 

0) / 10"KPH" 

210 PRINT" : »INT<SPEED*5 

. 555 ) / 10 "METERS PER MOVE " 

220 PRINT" 

II 

230 PRINT " CORNER APPROACHING" INT (APP) "ME 
TERS" 

240 PRINT " RECOMMENDED SPEED: "C (C) " KPH " 
250 PRINT" ■-- 

260 RETURN 
270 REM 

280 REM CHECK ACCELERATION AND FACTORS 
290 GET XS3:IF X$<>"Z" AND X*<>"M" AND X* 
< >CHRS (32) THEN 290 



307 



Commodore 64 



30.0 PR I NTT AE < 12) ? "OK" 
310 X=0 

32.0 IF XS="M" THEN X=SPEED/15 
330 IF X*="Z" THEN X=-SPEED/1S 
340 NUM=NUM+1 : REM NUMBER OF MOVES 
350 SPEED=SPEED+X 
360 IF SPEED<0 THEN SPEED=0 
370 TRAV=SPEED*. 5555: REM DISTANCE 

TRAVELLED 

380 D I ST=D I ST+TRAV : REM TOTAL DISTANCE 

TRAVELLED 

390 ENQ=ENG+ (X/2) +.07: IF EMG<70 THEN ENG 

=70+RND<l)*8:REM ENGINE TEMP 

400 IF X>0 THEN BRAK=BRAK*. 9: REM BRAKE 

TEMP FALLINGS ACCELERATING 
410 IF X< 1 THEN BRAK=BRAK- <3*X) -RND ( 1 > #3 
: REM BRAKE TEMP INCREASING! BRAKING 
420 IF BRAK< 8 THEM BRAK=8+RND ( 1 ) *8 
430 PRINT " 
{WHT>" 5 : RETURN 
440 REM 

450 REM CHECK ENG I ME / BRAKE TEMP 

460 IF ENG > 200 THEN PR I NT "YOUR ENGINE HA 

S OVER HEATED" : GOTO 830 

470 IF BRAK>500 THEN PRINT " YOUR BRAKES H 
AVE OVERHEATED" : GOTO 830 
480 RETURN 

500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
510 APP=APP-TRAV 
520 IF APP>0 THEN RETURN 
530 CRASH=0 

540 IF SPEEDXC <C)*1 . 125) THEN CRASH=1 : G 
OTO 690 

550 IF SPEEDXC <C> *1 . 1 ) THEN GOTO 690 
560 PNT=PNT+10.0- < (C (C ) *1 . 1 ) -SPEED) : REM 
CORNERING POINTS 

570 NC=NC+1 : REM NUMBER OF CORNERS 
580 CP=96- (PNT/NC) : REM CORNERING 

POSITION 

590 AM=AM + A <C) : REM AVERAGE NUMBER 

OF MOVES ALLOWED 
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600 rp=num-am:rem RACING POSITION: YOUR 

MOVES MINUS AVERAGE MOVES 
61.0 FP= <CP + RP> /2ZREM FIELD POSITION IS 
AVERAGE OF CORNER 8; RACE POSITIONS 
620 IF FP<1 THEN FP=1 
630 C=C-M 

640 IF C=WW THEN C=l : REM LAP OVER 
650 APP=APP+D(C) 

660 IF LAP*QQ=AM THEN 910: REM RACE OVER 
670 RETURN 
680 REM 

690 REM CRASHED 
700 PRINT " 
{ CLR } " 

710 PR I NT "YOU CORNERED AT " I NT < 1 0*SPEED ) / 
10"KPH" 

720 PR I NT "AND THE MAXIMUM SPEED WAS JUST 
" C ( C ) 

730 GOSUB 2330 

740 PR I NT "YOU SPIN OFF THE TRACK..." 

750 60SUE 2330 

760 IF CRASH=1 THEN 830 

770 PR I NT "YOU'VE LOST 20 SECONDS , BUT YO 

U' RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10: SPEED=INT (2*C <C) /3) 

790 PNT=PNT+50 

800 GOSUB 2330 

810 GOTO 570 

820 REM #**^^**-X-*-)Ht , -X--5H(--X--5H(-'^-X--¥--X--)<-* 

830 PRINT" AMD CRASH !!!!!" 

840 PRINT" 

_ _____ II 

850 PR I NT " YOU ONLY COMPLETED " INT < DIST#10 
) / 1 " METERS . " 

860 PR I NT " OR " I NT < D I ST* 1 00 / RR > / 1 00 " LAPS A 
ND AT THAT" 

870 PR I NT "STAGE YOU WERE IN POSITION" INT 
<FP) 

880 PRINT" 

— — — — — -_»> 

890 GOTO 1050 
910 REM RACE OVER 
920 PRINT" 
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{CLR> " 

930 EFLAG= 1 

940 FOR X=l TO 20 

950 PRINTTAB(X) 5 "WELL DONE , "SA*;" !!" 

960 PRINTTAB ( 21 -X > ; "WELL DONE , " 5 A*; " ! ! " 

970 NEXT X 

980 PRINT" 



990 PRINT" YOU MANAGED TO LAST OUT THE FU 

LL "LAP "LAP RACE . . . » 

1000 PRINT" 



1010 GOSUB 2330 

1020 PRINT" YOU FINISHED IN POSITION" INT < 
FP) 

1030 PRINT " AFTER STARTING IN 6TH POSITIO 
N . . . " 

1040 GOSUB 2330 

1050 PRINT" YOUR AVERAGE SPEED WAS" INT (DI 

ST* 180 /MUM) / 100 "KPH" 

1060 GOSUB 2330 

1070 IF RP< 1 THEN RP=1 

1080 IF CP< 1 THEN CP=1 

1090 PR I NT "YOU WERE " I NT ( ABS < RP ) ) " TH FAST 
EST ON THE STRAIGHTS, " 

1100 PRINT " AMD " I NT ( ABS ( CP ) ) " TH FASTEST O 
N THE CORNERS. " 

1110 PRINT: PR I NT "PRESS ' S' FOR SAME RACE 

, * N ' FOR NEW RACE, ' E * TO END" 

1120 GET I*: IF I*>< >"S" AND I*<>"N" AND I 

*<>"E" THEN 1120 

1130 IF I*="E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1160 IF I$="S" THEN GOSUB 1 490 : LAP=L2AP : 
GOTO de- 
ll 70 IF I*="N" THEN PRINT" 
i CLR > " : GOSUB 1250: GOTO 60 
1180 REM 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER"? A 

$ 

1210 PRINT 
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1220 FOR X=l TO 3 

1230 PRINT TAB<X*4) J "OK, GOOD LUCK , " i AS 

1240 GOSUE 2330: NEXT X 

1250 PRINT" #****#**####*#*#**######4BHf 

1260 PR I NT "WHICH RACE DO YOU WANT TO TAK 
E PART IN: " 

1270 PRINT 

1280 PRINT TAE (7) ; "BRITISH GRAND PRIX 26 
50MT : 1 " 

1290 PRINT TAB (7) | "GERMAN GRAND PRIX 17 
00MT : 2 " 

1300 PRINT TAB (7) ; M ITALIAN GRAND PRIX 22 
00MT : 3 " 

13 5.0 PRINT TAB (7) I "MONACO GRAND PRIX 31 
00MT : 4 " 

1320 PRINT 

1330 PRINT TAB (7) ; " ENTER A NUMBER < 1 TO 
4) " 

1 340 GET K* 

1350 IF K*< " 1 " OR K*>"4" THEN 1340 

1360 GP=VAL(K$> 

1 370 PR I NT " 
" 

1380 PRINT TAB ( 8 ) J "OK, THE "5 

1390 IF GP=1 THEN PR I NT " BR I T I SH " i 

1 400 IF GP=2 THEN PR I NT " GERMAN " 5 

1410 IF GP=3 THEN PR I MT " I T AL I AM " ; 

1420 IF GP=4 THEN PR I NT " MONACO " ; 

1430 PRINT" RACE" 

1 440 PRINT " ***************************** 
********* " 

1450 PRINT: PRINT "OVER HOW MANY LAPS?" 

1460 INPUT LAP: IF LAP< 1 THEN 1460 

1470 LAP=INT (LAP+.5) : L2AP=LAP 

1490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=l TO 9 

1520 READ D < X ) : REM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 
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1540 DATA 800 , 4.0.0 , 250 , 2.0.0 , 250 , 300 , 100, 1.0 
0, 250 

155.0 FOR X=l TO 9 

1560 READ C(X) 

157.0 NEXT X 

1580 DATA 1 50 , 9.0, 175, 2.0.0, 200, 9.0, 90 , 150, 1 
50 

159.0 FOR X=l TO 9 

1 6.00 READ A <X> : REM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 

1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP=800: WW=10: G?S=24: RR=2650 

1640 IF GP=1 THEN RETURN 

1650 REM 

166.0 REM GERMAN DATA 

1670 SPEED=85 

1630 FOR X=l TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 6.00 , 200 , 1 00 , 1 50 , 25.0 , 200 , 200 

1720 FOR X=l TO 7 

1730 READ C (X) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1740 NEXT X 

1750 DATA 90,175,120,90,2.00,20.0,175 

1760 FOR X=l TO 7 

1770 READ A<X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1 800 APP=600 : WW=8 ". QQ= 1 7 : RR= 1 700 

1810 IF GP=2 THEN RETURN 

1820 REM ***^******************-* 

1830 REM ITALIAN DATA 

1840 SPEED=108 

1850 FOR X=I TO 7 

1360 READ D(X) 

1870 NEXT X 

1 88.0 DATA 80.0 , 300 , 1.00, 1 5.0 , 300 , 350 , 200 

1890 FOR X=l TO 7 

19.00 READ C (X) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1910 NEXT X 
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1 920 DATA 1 20 , 90 , 90 ,150, 200 , 120, 1 50 

1930 FOR X=l TO 7 

1940 READ A ( X ) 

1950 NEXT X 

I960 DATA 8,3,3,1,3,3,2 

1 970 APP=S00 : WW=8 : 00=22 S RR=2200 

1980 IF QP=3 THEN RETURN 

1990 REM 

2000 REM MONACO DATA 

2010 3PEED=162. 5 

2020 FOR X=l TO 14 

2030 READ D (X) 

2.040 NEXT X 

2050 DATA 400 , 1 00 , 1 00 , 300 , 400 , 300 , 1 50 , 20 
0, 2.00, 200 

2060 DATA 150, 150, 20.0 , 25.0 

2070 FOR X=l TO 14 

2080 READ C (X) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

2090 NEXT X 

210.0 DATA 175,150,175,200,120,200,175,90 
, 175, 150 

211.0 DATA 15.0, 175, 120, 150 

2120 FOR X=l TO 14 

213.0 READ A (X) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 

2170 APP=400: WW=15: QQ=30: RR=310.0 

2180 RETURN 

2190 REM #####**##*#«Hf#***###**# 

2200 REM INITIALISATION 

2210 POKE 53280,0: POKE 5328 1,0: PRINT " 
{ CLR y " 

2220 X=RND < VAL (RIGHT* <TIS>, 2) ) ) : REM 
RANDOMIZE 

2230 DIM A ( 14) , C ( 14) , D( 14) 

2240 c=i :fp=6:pnt=0:nc=0:cp=0 

2250 AM=0 : RP=0 : APP=0 

2260 NUM=0:REM NUMBER OF MOVES 

2270 ENG= 1 00 : BR AK= 1 : TR AV=0 : D I ST=0 

228.0 EFLAG=0 

2290 X=0 
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23.00 RETURN 

231.0 REM ************************ 

2320 REM DELAY 

2330 FOR 0=1 TO 1000: NEXT O 

2340 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1 ,0 

4030 NEXT LI 

4040 POKE SID+24, 15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE SID+4, 17 

4080 FOR L1=4S TO 220 STEP .7 

4090 POKE SID+1 ,L1 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1 , LI 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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FLIGHT SIMULATION / Commodore 64 version 



1.0 REM FLIGHT SIMULATION 
20 RPT=0 

3.0 LD=INT(RND<1)#360> 

40 DIM E* ( 1000) : REM THIS HOLDS FLIGHT 

RECORD 

50 DIM AS<7> , C*<7) :REM THESE ARRAYS 

HOLD HORIZON AMD COMPASS OUTPUT 
60 REM **********###*#*********.^ 
70 GOSUE 2320: REM INITALISE 

80 IF CRASH=0 THEM GOSUB 820: REM HORIZON 

/COMPASS 

90 GOSUB 5.00 : REM PRINTOUT 
100 IF CRASH=1 THEN END 

110 IF LND=1 AND UFL AG= 1 THENGOSUB4000 : P 
R INT " WELL DONE. A PERFECT LANDING !": END 
120 IF LND= 1 AND UFLAG=0 THEN PR I NT " YOUR 

WHEELS ARE UP": GOSUB 1780: GOTO 90 
130 T=AIRSPEED: SALL=0 
14.0 GET X* 

150 IF X*="R» THEN RPT=l:GOTO 70 

160 IF RPT=1 AMD E* ( CLOCK+ 1 ) = '"■ THEN RPT 

=0:GOTO 140 

170 IF RPT=1 THEN X*=E* < CLOCK+ 1 ) 
180 IF X*="" THEN 140 

190 IF CL0CK<999 THEN ES> ( CLOCK+ 1 ) =X* 
200 IF TAKEOV=l THEN ELEVATE= I NT < ELEVATE 
+ RNDU.)#2-RND<1>*3> 
210 IF AIRSPEED<3 THEN 290 

220 IF X*=»Q» THEN ELEVATE=ELEVATE+5 : EFL 

AG=5:iF ELEVATE >60 THEN SALL=1 

230 IF X*="A" THEN ELEVATE=EL.EVATE-5 : EFL 

AG=-5:iF ELEVATE< -70 THEN SALL=~1 

240 IF SALLO0 THEN GOSUB 1640 

250 IF ALTIMETER< 1 THEN 290: REM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X*=»Z" THEN WA=WA- . 5 : ANG=ANG-6 : I F 

WA<-3 THEN WA=-3 
270 IF X*="M" THEN WA=WA+ . 5: AMG=ANG+6: IF 

WA>3 THEN WA=3 
280 ANG=INT < AMG + RND < 1 ) S-2-RND < 1 > #2 > 
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290 IF XS>=CHR*(32) THEN A I RSPEED=A I RSPEE 
D + 8. 5 

300 IF X33="." THEN AIRSPEED=AIRSPEED-7 

310 A I RSPEED=A I RSPEED- ELEVATE / 5 

320 IF UFLAG=1 THEN AIRSPEED-AIRSPEED- 1 . 

5:FUEL=FUEL~.5 

330 IF AIRSPEED<0 THEM AIRSPEED=0 
340 IF AIRSPEED>400 THEN AIRSPEED=400 
350 IF X*=" 1" AND UFLAG=0 THEM UFLAG=l:G 
OTO 370 

360 IF X95="l" AND UFLAG=1 THEN UFLAG=0 
370 FUEL=FUEL- < ABS (T-A I RSPEED) / 10) -3. 75 
380 IF FUEL<1 THEN GOSUB 1730 
390 IF TAKEOV=l THEN 420 

4.00 IF ELEVATE>10 AND AIRSPEED>45 AMD AI 

RSPEED<60 AND UFLAG=1 THEN TAKEOV=l 

410 IF TAKEOV=0 THEN ALT I METER=0 : GOTO 45 



420 IF LND=0 AMD AIRSPEEDS 30 THEN ELE VAT 
E=ELEVATE~5: ALTIMETER=9#ALTIMETER/10, 
430 ALT IMETER=ALT I METER + I NT < < 1 ELEVATE+ . 1 
) ^AIRSPEED) +EFLAG-K-A I RSPEED/ 1000) /S0 
440 IF ALT I METER< 300 AND TAKEOV=l THEM A 
LT I METER=ALT IMETER+ AI RSPEED / 30+ ELEVATE 
450 IF ALTIMETER<0 THEM GOSUB 1780: REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER (OR EVEN HARDER) TO LAND 
470 IF ALT I METER > 1 5 AND A I RSPEED > 20 OR T 
AKEOV=0 THEM 80 

430 IF ABS ( ANG-LD ) < 13 OR ABS ( ANG+360-LD ) 
<13 THEN LND=i:GQTO 80 
485 GOTO 30 

490 REM **#**************-*-******* 
500 REM PRINTOUT 
510 PRINT" 
{ CLR } " 

520 PRINT" HORIZON" 5 TAB (20) ? "HEADING" 
530 EV= INT (ELEVATE/ 10) 
540 IF EV>2 THEM EV=2 
550 IF EV<-2 THEN EV=-2 

560 IF EV< >0 AMD TAKEOV=i AND CRASH=0 TH 
EN GOSUB 1920 
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570 PRINT " : ; : .. 

58.0 FOR J=l TO 7 

590 PRINT" : " ; A* ( J ) 5 " : " ; C* ' J > ; " : " 

600 A* ( J ) = " " 

610 NEXT J 

620 PRINT " : ;.. 

630 DIST=DIST + ABS ( < COS ( ELEVATE ) > #AIRSPEE 
D ) / 360 

640 CLOCK— CLOCK+ 1 

650 PRINT" : RANGE" INT (DIST3-10) / 10" : TINE" 
INT (CLOCK) / 10; " : "LD 

660 PRINT " : . .. 

670 PRINT " : AIRSPEED : " I NT ( AIRSPEED ) 

630 PRINT" : " ; LEFT* ' Q*, INT < AIRSPEED/20) ) ; 

it y ii 

690 PRINT" : ALTIMETER: " INT (ALTIMETER) ; 
700 IF ANG<0 THEN PRINTTAB ( 19) ; 360+ANG"D 
EG. " 

710 IF ANG>=0 THEN PRINTTAB < 19) ; ANG " DEG . 

II 

720 MR= I NT 'ALT I METER/ 30) : IF MR>20 THEN M 
R=20 

730 PRINT" : " ; LEFT* (Q*, MR) ; " > " 

740 PRINT" :FUEL : " INT (FUEL ) 

750 PRINT" : " ILEFT*(Q* S INT (FUEL / 45) ) ;'•>"' 

760 PRINT " : : .. 

770 PRINT" : ELEVATION: "ELEVATE" : » ; : GOSUB 

2210:PRINTUS 
730 IF UFLAG=1 THEN PRINT " : " ; TAB ( 5 ) j " > 
UNDERCARRIAGE DOWN < : " 

790 IF UFLAG=0 THEN PRINT " : " ; TAB ( 6 ) ; " > 
UNDERCARRIAGE UP < : " 
800 RETURN 

810 REM ***************.)BH(-******* 

820 REM ASSIGN HORIZON /COMPASS 

830 IF ABS < INT (WA+. 5) ) =3 THEN GOSUB 980 

840 IF ABS(INT(WA+„5> ) =2 THEN GOSUB 1070 

350 IF ABS(INT(WA+.5) )=1 THEN GOSUB 1160 

860 IF INT(WA+.5)=0 THEN GOSUB 1250 

370 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
380 IF WA>0 THEN WA=WA-.2 
890 IF WA<0 THEM WA=WA+.2 
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OR 



900 IF WA> . 2 THEN 
910 FOR 2=1 TO 7 
920 MS<8-2) =AS(Z) 
930 NEXT 2 
940 FOR 2=1 TO 7 
950 MS(2)=AS<Z> 
960 NEXT 2 
970 GOTO 1350 
980 REM WA=3 OR 
990 A* ( 1 ) = " 
1000 AS<2>=" 
1010 A* (3)=" 
1020 AS<4)=" 
1030 AS<5)=" 
1040 A* (6)=" 
1050 AS < 7 ) = " **- 
1060 RETURN 
1070 REM WA= 
1080 AS< 1 >=" 
1090 A* (2)=" 
1100 AS < 3 ) = " 
1 1 10 AS<4) =" 
1 1 20 A* ( 5 ) = " 
1130 AS < 6 ) = " *** 
1140 AS (7)=" 
1150 RETURN 
1160 REM WA=1 
1 170 AS< 1 > = 
1180 A* (2)= 
1 1 90 AS < 3 > = 
1 200 AS i 4 ) = 
1210 AS ( 5 > = 
1220 AS (6)= 
1230 AS (7)= 
1240 RETURN 
1250 REM WA=0 
1260 AS(1)= 
1270 AS (2)= 
1280 AS (3)= 
1 290 AS ( 4 ) = 
1 300 AS ( 5 ) = 
1310 AS (6)= 
1320 AS (7)= 



1350 



-3 



* 
** 



** 



** 



** 



'X r "X' 



*** 



*** 



*** 



OR 



****** 
**** 



************** ' 
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1330 RETURN 

1340 REM ***************#****.***.* 
1350 REM ASSIGN COMPASS STRINSS 
1360 F2= ANG-F 1 
1365 F2=ANG 

1370 IF F2<0 THEN FA=INT < (F2+375) /30> 
1380 IF F2>=0 THEN FA= I NT ( ( F2+ 1 5 ) / 30 ) 
1390 IF FA=12 THEN FA=0 
1400 C* ( 1 ) = M . N. 
1410 IF FA=1 1 THEN C*<2> =" 
1450 

1420 IF FA=0 THEN C*(2)=" 
1450 

1430 IF FA=1 THEN C*(2)=" 
1450 

1440 C* <2> = " ■■ 
1450 IF FA=10 THEN C3><3>=" 
1480 

1460 IF FA=2 THEN C*(3>=" , 
1480 

1470 C*<3) =" . . : 
1480 IF FA=9 THEN C*(4) 
1510 

1490 IF FA=3 THEN C*(4)==" W — X-@E " : GOTO 
1510 

1500 C*(4)=" W--X--E" 

1510 IF FA=8 THEN C*(5) = 
1540 

1520 IF FA=4 THEN C*(5) = 
1540 

1530 C*(5) =" . „ : 
1540 IF FA=7 THEN C*!6^= 
1580 

1550 IF FA=6 THEN C*<6)= 
1580 

1560 IF FA=5 THEN C*<6>= 
1580 

1 570 C* ( 6 ) = " . . : . . •■ 
1580 C3M7)=" .S. 

1590 IF ANG>360 THEN ANG=ANG-360 
1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 
1620 IF W<0 THEN W=W+ . 4 



WO- 



.(§:.. " : goto 

" : GOTO 
, : @. " : goto 

: . . " : GOTO 
@. " : GOTO 

— E" : GOTO 



. . " : GOTO 
@. " : GOTO 

, . " : GOTO 
" : GOTO 



. »: goto 
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163.0 RETURN 

1640 REM STALL / FALL 

1650 IF SALL=-1 THEN 1710 

1660 FOR J=l TO 10 

1670 PR I NTT AB < J ) 5 " YOU HAVE STALLED!!" 

1680 NEXT J 

1690 A I RSPEED=A I RSPEED / 4 

1700 RETURN 

1710 FOR J=l TO 10 

1720 PRINTTAB(J) ? "UNCONTROLLED DIVE!!" 

1730 PR I NTT AB < 21 - J ) ; "PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER=ALTIMETER/4 

1760 RETURN 

1770 REM 

1780 REM CRASH 

1790 CRASH=1 

1800 ALT 1 METER=0 

1810 M*="** *C R#* A ** S* H* ! ! *" : REM 

25 CHARACTERS LONG 

1820 FOR J=l TO 20 

1830 PRINTTAB ( J ) | "CRASH ! " 

1840 PRINTTAB <21-J> | "CRASH ! " 

1850 NEXT J 

I860 FOR 3=1 TO 7 

1870 G= I NT (RND ( 1 ) * I 1 > + .1 

1880 A*< J>=MIDS<MS>,G, 14) 

1890 NEXT J 

1900 RETURN 

1910 REM ************************ 

1920 REM ADJUST HORIZON 

1930 G*=" " : REM 14 SPACES 

1940 ON EV+3 GOSUB 1960,2020,2070,2080,2 
140 

1950 RETURN 

1960 REM EV=-2 

1970 FOR J=l TO 4 

1980 A*< J) =A*< J+3) 

1990 NEXT J 

2000 AS ( 5 ) = G* : A* ( 6 ) = GS : A* ( 7 ) = G* 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J=l TO 6 
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204 A*( J ) =ASM J + l } 

2050 NEXT J 

2060 AUM7)=GS 

2070 RETURN: REM EV=0 

2080 REM EV=1 

2090 FOR J=6 TO 1 STEP -1 

2100 A*< J+i>=A*<J> 

2110 NEXT J 

2120 A*(1)=G* 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 A* ( 3 +3) =A* < J ) 

2170 NEXT J 

2180 A* < 1 ) =G*:A*(2)=G«: A* (3) = G* 
2190 RETURN 
2200 REM 

2210 REM INPUT INTO COMMAND NAME 
2220 U<S=" " 

2230 IF X*=CHRS3<32) THEN U*=" THROTTLE ON 

11 

2240 IF X*="„" THEN U$= » THROTTLE OFF" 
2250 IF X*="Q" AND ALT I METER >0 THEN U*= " 
CLIMB" 

2260 IF X*=»Q» AMD ALTIMETERS THEN U*=» 
NOSE UP" 

2270 IF X*="A" THEM U*="MQSE DOWN" 
2280 IF X$="Z" THEN U*="BANK LEFT" 
2290 IF X*="M" THEN U*="BANK RIGHT" 
2300 RETURN 
2310 REM 

2320 REM INITIALIZATION 

2330 POKE 53280,0: POKE 5328 1,0: PR I NT " 
{ CLR } { PUR } " 

2340 J=RND ( VAL (RIGHT* <TI*, 2) ) ) : REM 
RANDOM I 2E 

2350 " : REM 

21 CHARACTERS IN STRING 
2360 UFLAG=1 : REM UNDERCARRIAGE - 

1 - DOWN, - UP 

2370 efl ag= 1 : rem climb rate 
2380 ang=0:takeov=0:lnd=0 
2390 airspeed=0 
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2400 DIST=0: REM DISTANCE COVERED 'RANGE' 

2410 ALT I METER=0 

2420 ELEVATE=0: REM ANGLE OF ELEVATION 

2430 WA=0:REM WING angle; USED IN 

HORIZON PRINTOUT 

2440 FUEL=750: CRASH=0: F2=0: F1=0: REM 

FOR DIRECTION CHANGE / COMPASS ROUTINE 

2450 CLOCK=0:REM TIME 

2460 X$=" " 

2470 RETURN 

4000 SID=54272 

4010 FOR H=0 TO 23 

4020 POKE SID + Li.,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

40S0 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR LI =28 TO 200 

4120 POKE SID+ljLl 

4130 NEXT L 1 

4140 FOR LI =200 TO 23 STEP -1 

4150 POKE SID+1,L1 

4160 NEXT LI 

4170 POKE SID+1,0 

4180 RETURN 
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